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PROLOGO 


El ZX SPECTRUM ha sido la gran novedad del año 82 en el Reino Unido 
dentro de los ordenadores personales. Y lo va a ser en España a partir 
de la primavera de 1983. Este pronóstico puede parecer algo presuntuoso 
o mágico, entrando en el terreno de lo adivinatorio, pero no lo es. 


Las ventajas del ZX SPECTRUM sobre el ZX 81, verdadero impacto en 
su tiempo, le hacen igualmente deseable que aquél pero dentro de una 
perspectiva mucho más avanzada. 


Así, el amante de las matemáticas no necesitará ya crear subrutinas 
para cada una de las funciones que quiera definir, y podra representarlas 
mediante gráficos de alta resolución con la precisión que desee. 


El economista podrá hacer uso de programas de datos mediante la opción 
MERGE, evitando la incorporación de datos dentro del propio programa, 
siempre tan farragosa. 


El aficionado a los juegos puede ya estar satisfecho: aquí se aúnan todas 
las nuevas características del SPECTRUM: color, alta resolución, dibujo 
sobre dibujo, etc. para llegar a programas suficientemente completos 

e interesantes para todas las edades. 


Las características de capacidad de memoria en 16 y 48K y la posibilidad 
de mezcla de dibujo y texto en gráficos de alta resolución hacen del 
SPECTRUM una herramienta ideal para la enseñanza individualizada y 

en la propia casa del alumno, especialmente indicada en relación con 

las representaciones gráficas. 


Como no todo puede ser perfecto también existen lagunas en el ZX SPECTRUM, 
sobre todo en el área de sonidos (poco desarrollada). 


ANDREW HEWSON ha desarrollado el presente libro mediante una complejidad 
paulatina a través de 20 programas, todos ellos interesantes tanto en 


razón de la utilidad futura como del aprendizaje práctico de las caracteristicas 
del ZX SPECTRUM. 


El autor comienza analizando la creación de ARCHIVOS (3 primeros 
programas), continúa con DIBUJO y MUSICA, pasa por aplicaciones 
estadísticas y CODIGO MAQUINA, y termina con dibujos complejos, 
manteniendo siempre un equilibrio envidiable entre programas en BASIC 
y subrutinas en código máquina. 


En definitiva, consideramos que es un BUEN LIBRO, que debe ser BASICO 
en la biblioteca de todo usuario del ZX SPECTRUM. 


FEDERICO SANCHEZ-VALLEJO 


INTRODUCCION 


En 1980 la SINCLAIR RESEARCH LTD. lanzó al mercado el primer 
computador por debajo de la barrera de las 100£, el ZX80. Con sólo 

IK de RAM incorporado, variables enteras y unos resultados en pantalla 
que desaparecian durante el cálculo, el ZX80 era un pariente pobre 

de los otros microcomputadores disponibles por aquel entonces. Sin 
embargo, desplazó del mercado a la cuarta parte de sus competidores 

y se difundió tan rápidamente que los fabricantes pronto le proclamaron 
el mejor computador británico. 


En la primavera de 1981 SINCLAIR lanzó un sustituto, el ZX8l. Este 
computador tenía todavía 1IK de RAM incorporada, pero utilizaba 
variables en coma flotante y podría mantener los resultados en la 
pantalla durante el cálculo a voluntad del usuario (aunque a riesgo 
de conseguir una menor velocidad en el cálculo). El precio del ZX81 
era un poco inferior a 70k. 


Ahora SINCLAIR lanza su computador de 1982, el ZX SPECTRUM. 
Tiene incorporadas 16K de RAM en su versión standard, incluye gráficos 
en color y alta resolución (256 x 176 puntos) y dispone de un software 
más perfeccionado que el ZX81, incluyendo la posibilidad de conexión 
de un disco muy manejable. Cuesta 125£ (versión 16K). 


Las mejoras del ZX80 y, aún más, del ZX81, no se echan en saco 
roto y siguen desempeñando el papel de una primera etapa para los 
usuarios, los cuales desean explorar el mundo de los computadores 
de la manera más barata posible. Se necesita algo de ingenio para 
obtener buenos resultados de estas máquinas -lo que no es mala cosa 
al no tener una compensación de tipo económico por sus esfuerzos. 


Por esta razón yo escribí 2 libros: "HINTS 4% TIPS FOR THE ZX80" 

y más tarde "HINTS € TIPS FOR THE ZX381" (Indicaciones y consejos 

para el ZX80 y el ZX81), los cuales intentaban proporcionar al lector 
algunos conocimientos sobre el MODUS OPERANDI de estos computadores. 


Para escribir este libro sobre el ZX SPECTRUM he adoptado una actitud 
algo diferente. Con 16K de RAM en su versión standard la presión 

sobre el usuario para escribir programas con economía de espacio 

(de memoria) es mucho menor. Reciprocamente, al disponer de una 
amplia gama de comandos y funciones, existe una mayor motivación 
para que el usuario escriba largos y más sofisticados programas. 


El escribir buenos programas es una habilidad que puede ser aprendida 
por el usuario, y mi propósito en este libro es enseñarla mediante 
ejemplos. Mis programas ilustran un número de técnicas que son bien 
conocidas en el mundo de los computadores- el uso de registros de 
longitud fija y variable; la clasificación por burbuja; la búsqueda doble 
(DIARIO y FICHERO). 


Otros programas ilustran técnicas peculiares del SPECTRUM poniendo 
énfasis en la utilización más eficiente de los resultados. La mayor 

parte de los programas están divididos en varias secciones, comenzando 
cada una de ellas con una línea múltiplo de 500, pudiendo así el usuario 
progresar adecuadamente y adaptar los programas a sus propias necesidades. 


Espero que el lector no intente digerirlo de principio a final y de 

una sola vez. Más bien debe elegir un apartado, leerlo, dejar volar 

su fantasia y trabajar con el programa que aquí listamos. Yo he descrito 
los aspectos del programa que a mí me parecen más importantes; 

en algunos casos con gran detalle y en otros, tratados con anterioridad 
en este libro, de forma más bien superficial. 


El escribir un libro como éste es una tarea que lleva mucho tiempo. 
Asi que espero que el lector disfrute utilizando los programas como 
yo he disfrutado escribiendolos. 


ANDREW HEWSON 
BLEWBURY 19832 


FICHERO 


l. FICHERO 
Este es un programa de tipo general para almacenamiento de datos. 


Mediante el MENU de opciones se permite al usuario establecer la 
naturaleza de los datos que van a ser almacenados, añadir y suprimir 
datos, visualizar los datos en la pantalla o en la impresora, buscar 

los datos deseados, ordenarlos tanto de forma numérica como alfabética 

y grabarlos (SAVE) y cargarlos (LOAD) mediante un cassette. El nombre 

de FICHERO es debido a que está diseñado para que funcione como 

un sistema de fichas, pero con una gran velocidad, flexibilidad y comodidad 
de utilización. 


El usuario controla el programa introduciendo un solo comando de 

su elección (letra) conforme a lo indicado en el MENU (linea 200); 
ilustrado en la figura FNI. El código del carácter elegido es almacenado 
en la cadena Z$ y se compara con cada uno de los códigos posibles 

en la línea 230. 


Si son iguales el valor del paréntesis es 1. Un simbolo de multiplicación 
previo a cada paréntesis dirige el programa a la rutina elegida. Asi 

si el usuario pulsa "H" para PARAR, el paréntesis final de la linea 

230 formará el valor | puesto que Z$ = "H" es verdad. Como todos 

los otros paréntesis son CERO la línea 230 se leerá como GOTO 300 

+ 4200. El programa salta a la línea 4500, escribe (PRINT) un mensaje 
y se para (STOP). 


FICHERO 
Menu de Opciones 
Definicion estructura ficha D 
Anadir fichas A 
Borrar fichas Q 
Revisar fichas R 
Imprimir fichas P 
Buscar fichas sí 
Clasificar fichas B 
Grabar fichero en cassette 5 
Cargar el fichero L 
Verificar el fichero U 
Parar el program H 


FIGURA FNI. El MENU de opciones del programa FICHERO 


Si el usuario introduce un código no existente en el MENU, el programa 
salta a la línea 300, realiza una PAUSA y retorna al MENU. 


Cada una de las opciones del MENU se ejecuta de forma más o menos 
independiente de las otras, para lo cual el programa se divide en módulos, 
uno para cada opción. Por convenio, el mismo de la primera línea de 
cada módulo es un múltiplo de 500. 
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l. FICHERO 


CREACION DE LA ESTRUCTURA DE UNA FICHA INTRODUCIR D 


Vamos a suponer que el programa se utiliza para mantener los datos 
de un CLUB de MICROCOMPUTADORES. Se introducen como datos 
a) el nombre, b) la inicial de cada miembro, c) el ordenador que posee, 
d) la cuota mensual que paga y e) si está al corriente de los pagos 

o no. 


¿Cómo podría almacenar esta información el FICHERO? 


Lo primero que debemos hacer es establecer una estructura variable 
para almacenar los datos conforme a la opción "DEFINICION DE LA 
ESTRUCTURA DE UNA FICHA". El programa salta a la linea 1000 

y pregunta al usuario cuál es el número total de FICHAS a introducir. 
Se requerirá una ficha para cada uno de los miembros del club y asi 
podríamos necesitar, por ejemplo, 50 fichas para los 50 miembros. 

El programa pregunta a continuación por el número de campos literales 
(*) y el número de campos numéricos. Sería muy conveniente que 
organizáramos los 5 conceptos a almacenar (nombre, inicial y ordenador 
que posee el miembro, cuotas pagadas o no) mediante 4 campos literales. 
(La cuota mensual es el único campo numérico). 


El programa pregunta a continuación el nombre de cada uno de los 
campos de forma ordenada y, en el caso de campos literales, por el 
máximo número de caracteres que pueden ser almacenados en cada 
uno de ellos. La longitud del "NOMBRE del campo' puede ser de 10 
caracteres o menos, pero no hay límite para la longitud del campo. 


Una estructura apropiada de FICHA se incluye en la Figura FNZ. 


NUMERO MAXIMO DE FICHAS = 50 
NUMERO DE CAMPOS LITERALES = 4 
NUMERO DE CAMPOS NUMERICOS = A 
NUMERO DEL CAMPO LITERAL NOMBRE LONGITUD 
1 MIEMBRO 20 

2 INICIAL 1 

3 COMPUTADOR 20 

4 PAGOS ? (S/N) 1 
NOMBRE DEL CAMPO NUMERICO NOMBRE 

1 CUOTA 


FIGUNA FN2. Un ejemplo de la estructura de un FICHERO. Esta 
estructura está dimensionada para almacenar el nombre, la inicial, 
el computador y detalles acerca de las cuotas para los 50 miembros 
de un Club de Computadores. 


(*) NOTA DEL TRADUCTOR: Compuestos por cadenas, tanto alfabéticas como numéricas. 
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FICHERO 


AÑADIR FICHAS INTRODUCIR A 


Esta opción se utiliza para introducir datos uno detrás de otro inmediatamente 
después de creada la estructura de las FICHAS o en una fecha posterior. 

El programa escribe el número de la primera ficha vacía e indica el 

dato a introducir en ese momento. Si se comete un error debemos 

pulsar '"B" y retrocedemos al campo anterior. En el caso de pulsar 

"F" (la entrada de datos se ha terminado) se vuelve AL MENU de opciones. 


BORRAR FICHAS INTRODUCIR O 


Esta opción se utiliza para borrar fichas. El programa pregunta por 

los números de las fichas que son comienzo y final del borrado. Para 
borrar, por ejemplo, las 3 primeras fichas se han de introducir, primero 
un 1 y luego un 3. Se ha de tener cuidado al borrar más de una ficha 

de una sola vez, ya que el programa produce fallos debido a la 
RENUMERACION de las fichas. La manera más fácil de evitar problemas 
es borrar primero el grupo cuyo número de orden es el mayor. Por 
ejemplo: Si se han de borrar las fichas 3 a 7 y l4 a 16 borraremos 
primero el segundo grupo (14 a 16) y luego el primero (3 a 7). 
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l. FICHERO 


REVISAR O IMPRIMIR ALGUNA FICHA INTRODUCIR R o P 


El programa, pregunta por el número de las fichas en las cuales se 
desea comenzar y terminar la operacion y dichas fichas aparecen en 
pantalla o en la impresora. 


BUSCAR FICHAS INTRODUCIR T 


El programa pregunta por los números de las FICHAS en que se desea 
comenzar y terminar la búsqueda y el nombre del campo que se busca. 

El programa entonces compara el nombre introducido por el usuario 

con el contenido del campo en cada una de las FICHAS de forma ordenada 
y, si se encuentra uno idéntico, aparece en pantalla el número de dicha 
FICHA. 


CLASIFICACION DE FICHAS POR BURBUJA INTRODUCIR B 


El programa pregunta por el número del campo que señala el orden 

en el cual se han de clasificar las fichas. Si el campo es literal la 
clasificación se realiza por el CODIGO de los caracteres de cada concepto 
dentro de cada campo. Si el campo es numérico las fichas se ordenan 

por orden numérico. 


GRABACION (SAVE), CARGA (LOAD) 
y VERIFICACION (VERIFY) AEARULI ad 90 


Estas opciones permiten al usuario grabar los datos en cassette, cargar 
los datos grabados en el cassette o verificar si la copia contenida en 
un Cassette es identica al contenido de la memoria. 


MAS ACERCA DEL PROGRAMA 


Este FICHERO proporciona la mayor parte de las caracteristicas requeridas 
de la Base de Datos de un computador, pero hay muchas más cosas 
con las que se le podría complementar. Por ejemplo, podría ser posible: 


l. Editar los campos existentes en una ficha 
. Añadir nuevos campos a los conceptos ya existentes. 
. Buscar varios campos de forma simultánea. 


2 

3 

4. Definir formatos especiales de salida de datos 

5. Aumentar el número de fichas sobre el límite inicial definido 
6 


. Crear nuevos conceptos mediante la clasificación secundaria 
de algunos casos. 


La primera consideración sobre las caracteristicas que podemos estudiar 
es la cantidad de memoria RAM disponible. El programa base, tal como 
está escrito, ocupa unas 6,5K de las 9K disponibles por el usuario en 
una máquina de 16K. 
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FICHERO 


Teniendo en cuenta que los propios datos requieren una considerable 
cantidad de espacio (50 FICHAS de 20 caracteres cada uno, ocupan 

1K, por ejemplo) es evidente que se requiere una máquina de 48K para 

poder añadir un software más completo al programa principal. La alternativa 
es dividir el programa en partes coherentes y añadir nuevos módulos 

a cada una de las partes. Cada nuevo programa debe poder grabar, 

cargar y verificar los datos para que cada uno de los programas pueda 
comunicarse con los demás. 


Las variables más importantes utilizadas por el programa son: 


nn - Número de campos numéricos 
ns - Número de campos literales 
cr - Número de fichas utilizado 
nr - Número de fichas máximo 
fS (ns + nn, 10) - Cadena literal (conteniendo los nombres de los campos) 
lr - Longitud total de todos los campos literales 
bS (ns, Ir) - Cadena literal conteniendo toda la información 
de las cadenas literales 
b (ns, 2) - Cadena numérica conteniendo las direcciones en 
b$ de comienzo y terminación de cada campo literal 
a (nr, nn) - Cadena numérica conteniendo toda la información 
numérica 
c (4) - Cadena numérica en la que se almacenan mn, ns, 


cr y nr cuando se GRABAN en cassette. 


El último concepto de interés es la CLASIFICACION por BURBUJA. 
Este método de clasificación puede parecer ineficaz, pero de hecho 
es mucho más rápido que otras técnicas que aparentan ser más sofisticadas. 


En una clasificación por burbuja el ordenador verifica los datos desde 
el principio hasta el final, comprobando si cada nuevo dato es mayor 

o igual que su predecesor. Sólo si es menor las posiciones entre los 

2 últimos datos se intercambian. El computador repite el proceso hasta 
que realiza una pasada a través de todos los datos sin realizar ningún 
cambio, momento en el que la clasificación está completa. Durante 

la clasificación, los datos "menores" ascienden un escalón cada vez, 
como si fueran BURBUJAS que borbotearan, motivo por el que se da 
dicho nombre a esta técnica. El método es muy popular porque es 

fácil de programar, rápido de ejecutar y no requiere demasiado espacio, 
excepto la variable que se utiliza para indicar la duración de cada 
paso cuando se ha producido un intercambio entre las posiciones de 

2 datos. 


CODIGOS DE ERROR SIGNIFICADO 

l La letra cuyo código se ha introducido 
no figura en el MENU. 

2 Intento de establecer una estructura de 


FICHA absurda, p.e.: Sin FICHAS o campos 
de números negativos. 

Nombre de campo mayor de 10 caracteres. 
Cadena con longitud menor que l. 

Nombre de FICHERO mayor de 10 caracteres. 
Intento de buscar un campo inexistente. 


Du 
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10 
20 
30 
40 
200 


202 


210 
220 
230 


300 
310 
3208 
338 
510 


520 
530 
590 
550 
560 
570 


580 
590 


$08 
$18 
$70 
689 
698 
708 
710 
720 
1909 


1018 
1012 
1014 
1015 
1028 
1030 


1048 
1058 
1048 
1070 
1118 
1128 
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l. FICHERO 


PROGRAMA PNI. FICHERO 


LET nn=08 

LET ns=0 

LET t=28 

LET cr=8 

CLS 1 PRINT TAB ?9;"FICHERO",,,TAB 5;"Menu de Opciones",,, 
"Definicion estructura ficha*";¡TAB t;" D","Anadir fichas”; 
TAB t;" A","Borrar fichas";¡TAB t;" O", 

PRINT "Revisar fichas";¡TAB t;" R","Imprimir fichas";¡TAB t; 
" P","Buscar fichas";¡TAB tj" T","Clasificar fichas";¡TAB t; 
" B","Grabar fichero en cassette";TAB t;" S","Cargar el 
fichero"¡TAB tj" L","Verificar el fichero"¡TAB t;" U", 
*"Parar el programa";¡TAB t;" H" 

INPUT z5$ 

GO SUB ¿688 

GO TO 300+5200x*(72$="T")+47080x(2$="0")+200*(2$="A")+790% 
(z$="D")+1200*(z2%$="R")+1780*(z2$="P")+2200x*(7$="B">+2700+* 
(7$="S")+3200x*(7%$="L")+3700*(2%$="U")+4200x*(2$="H"> 

GO SUB 40508: PRINT "1" 

PRINT ,,*Pulsa una tecla para continuar” 

PAUSE 8 

GO TO 288 

PRINT ,,"Da valor para cada uno de los campos de cada ficha" 
,», TAB 0;"Introduce:",,;¡TAB 0;*" F para terminar";¡TAB 0; 

" B para volver un espacio atras" 

FOR ¡i=cr+1i TO nr 

PRINT "Ficha no"jzi 

FOR J=1 TO ns+nn 

PRINT * Campo "¿¡f$(j)>; 

INPUT z$ 

IF z$="F" OR z$="f$*" THEN PRINT ,,,"Fin de entrada de datos": 
GO TO 208 

IF J<>1 AND (z$="B" OR z$="b") THEN LET J=-1: GO TO 550 
IF Ji AND z$="B" THEN LET ¡=i-1: LET cr=cr-1: LET j=nstnnm: 
PRINT ,,,"Ficha no"jl: GO TO 5589 

IF J<mns THEN LET b$(¡,b(j,1) TO b(j,2)>=z2%$; GO TO 4708 
LET aci,J-ns>=VAL z$ 

PRINT z$ 

NEXT j 

LET cr=cr+1 

NEXT | 

PRINT "Fichero completo" 

GO TO 318 

PRINT ,,,,;+"Creacion de estructura de ficha",,;TAB 0; 
"Introduce :"¡TAB 0;"No. max de fichas";¡TAB 0;"No. de campos 
literales" ¡TAB 0;"No. de campos numericos",,, 

INPUT nri PRINT AT 18,25;nr; 

INPUT ns: PRINT AT 19,25:n8; 

INPUT nn: PRINT AT 208,25;nn 

PRINT 

LET nr=INT nr: LET ns=INT ns: LET nn=INT nn 

IF nr<=zg OR ns<8 OR nn<B8 OR nstnn=8 THEN (GO SUB 4050: 
PRINT "2"1 GO TO 318 

DIM f$(ns+tnn,10> 

LET 1r=8 

IF ns=0 THEN GO TO 1258 

DIM b(n5,2) 

FOR ¡=1 TO ns 

PRINT "Campo literal "zi 
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FICHERO 


1130 
1148 


11580 
11480 
1170 
1180 


1199 
1195 
1208 
1218 
1220 
1258 
1260 
1265 
1278 
1280 


1298 
1300 
1305 
1318 
1320 
1330 
1340 
13580 
1360 
1508 
1510 
1580 
1598 
1608 
16180 
1628 
1638 
1648 
1650 
16608 
1670 
1688 
1718 
2000 
2018 
2080 
2098 
2108 
2118 
21280 
2130 
2148 
2158 
2169 
2178 
2189 
2208 
2500 
2595 
2518 


PRINT ,,"Nombre del campo?" 
INPUT 2z$1 IF LEN z$>18 THEN (GO SUB $858: PRINT TAB 25:;"2": 
GO TO 1130 

LET £$(1)=z8 

PRINT AT 19,25;z% 

PRINT AT 21,8;"Longitud?";TAB 28 

INPUT 1: IF 1<1 THEN GO SUB $058: PRINT TAB 25;"4": 
GO TO 1170 

PRINT AT 21,2531: LET bDCi,li»>=1r+1: LET Ir=1r+*1: LET b(1,2)=1r 
PRINT 5, 

NEXT | 

DIM b$(nr,1r> 

IF nn=8 THEN GO TO 1348 

FOR I=ns+1 TO nstnn 

PRINT "Campo numerico *;ji 

PRINT 

PRINT "Nombre del campo? " 

INPUT z$: IF LEN z$>18 THEN GO SUB 4050: PRINT TAB 25;"3": 
GO TO 1138 

LET f$(1>=z8 

PRINT AT 21,25;z% 

PRINT 

NEXT ii 

DIM alnr,nn) 

DIM c(nn> 

IF nn<4 THEN DIM c(49) 

PRINT ,,"Estructura completa" 

GO TO 310 

PRINT ,,,TAB 9;"Revisar fichas" 

GO SUB 8508 

FOR Ib TO e 

PRINT "Ficha no. “zi 

FOR J=1 TO ns 

PRINT *.- "p4s(J)3" 3”; 

PRINT b$(1,b(J,1> TO b(y,2>> 

NEXT J 

FOR J=ns+1 TO ns+nn 

PRINT *  "péSCJI 3" 3%; 

PRINT aci,J-ns> 

NEXT J 

NEXT 1 

PRINT "Fin de la revision": GO TO 318 

PRINT ,,TAB 9;"Imprimir fichas" 

GO SUB eses 

FOR ¡=b TO e 

LPRINT "Ficha no. *; 

FOR j=1 TO ns 

LPRINT TAB 6,"  "jf8cj)»¿" 5”; 

LPRINT TAB 16;b$(i,b(J,1) TO bC(j,2)> 

NEXT j 

FOR J=ns+1 TO ns+nn 

LPRINT TAB 07"  "jEscyr "o 3"; 

LPRINT TAB 16;a(i,j-ns>) 

NEXT Jj 

NEXT ¡ 

PRINT ,,*"Impresion terminada": GO TO 318 

PRINT ,,TAB 0;¡"Clasificacion de fichas" 

IF cr=8 THEN PRINT "Archivo vacio": GO TO 318 

PRINT ,,¡TAB 0;"Introduce No. de campo a clasi- ficar": 
INPUT £n 
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2528 


2530 
2590 
2560 
2578 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2645 


2650 
2660 
2670 
2680 
2698 
2708 
2718 
2720 
2730 
2748 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
3000 
3010 


3020 
30308 
3048 
3058 
3040 
3070 
3080 
3090 
3109 
3110 
3128 
3130 
3508 
3510 


3528 
3530 
3548 
3550 
3560 
3570 
3575 
3588 
3598 
360808 
3618 
36208 
3630 
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l. FICHERO 


LET fn=INT £n: IF fn<1 OR fn>ns+tnn THEN GO SUB 4858: 
PRINT "é6*"1 GO TO 2518 

IF £fn>ns THEN GO TO 2708 

LET ¡n=8 

FOR i=1í TO cr-1 

FOR j=b(fn,1)> TO b(fn,2) 

IF b$(1,J><b$(1+1,J) THEN GO TO 2468 

IF b$(1,J>>b$(i+1,j) THEN GO TO 2628 

NEXT J 

GO TO 2468 

LET z$=b$(¡) 

LET b$C(i¡i)=b$(¡+1> 

LET b$C(¡+1)=z$ 

IF nn>8 THEN FOR j=1 TO mn: LET c(j>=aCi,J): 
LET a(i,J)=ati+1,J>:r LET ati+1,J>=c(y): NEXT j 
LET ¡inz=in+1 

NEXT | 

IF ¡n>08 THEN GO TO 2548 

PRINT ,,"Clasificacion terminada” 

GO TO 3108 

LET ¡n=0 

FOR im=i TO cr-1 

IF ati,nn><=za(i+1,nmn> THEN GO TO 2889 

FOR J=1 TO nn 

LET cCj)»maCi,y> 

LET ali,J>=ati+1,j) 

LET ati+1,J>=c(j) 

NEXT j 

IF ns>08 THEN LET z$=b$(¡>: LET b$C(¡>=b$C(i+1)>; LET bé +1)=7% 
LET in=in+1 

NEXT ¡| 

IF in>0 THEN GO TO 2708 

PRINT ,,"Clasificacion terminada” 

GO TO 318 

PRINT ,,TAB 0;"Grabacion del fichero",,"Introduce su nombre * 
INPUT z$1 IF LEN z$>108 THEN GO SUB 4858: PRINT "5": 
GO TO 30108 

LET c(1)=ns 

LET c(2)=nn 

LET ct3mnpr 

LET c(4)mcr 

PRINT AT 21,0; FLASH 1;"Grabando fichero" 

SAVE 2$ DATA at> 

SAVE z$ DATA b(> 

SAVE 2z$ DATA b$(> 

SAVE z$ DATA c(> 

SAVE 2z$ DATA 4$(> 

PRINT AT 21,0¡z$;"Grabacion terminada" 

GO TO 318 

PRINT ,,TAB 8;"Cargar el fichero",,,"Introduce su nombre" 
INPUT z$1 IF LEN z$>18 THEN GO SUB 40598: PRINT "5": 
GO TO 3518 

PRINT AT 21,8; FLASH 1;"Cargando el fichero" 
LOAD z$ DATA al> 

LOAD z$ DATA b(> 

LOAD z$ DATA b$(>) 

LOAD z$ DATA c()> 

LOAD z$ DATA £$(> 

CLS 

PRINT AT 11,0;z$;"Carga terminada" 

LET ns=c(1) 

LET nn=c(2) 

LET nr=c(3) 

LET cr=c(4) 

GO TO 318 


l. FICHERO 


40009 
40108 


4028 
4030 
4948 
4050 
4060 
4078 
4875 
4080 
4099 
4500 
4510 
5088 
s5e18 
5078 
5080 
5098 
5100 
5118 
5120 
5130 
5500 
55180 
3520 
55308 
5540 
5558 
5560 
55708 
5608 
5610 
5620 
5630 
5648 
5650 


55660 
5670 
5688 
5690 
5700 
5705 
5710 
57208 
5725 
5738 
$008 
6018 
$050 
6055 
6060 
6070 
61008 
$118 
8500 
es10 


8528 
85308 
8548 
8550 


PRINT ,,TAB 0;¡"Verificar el fichero",,,"Introduce su nombre" 
INPUT z$1 IF LEN z$>10 THEN GO SUB 6058: PRINT "5": 

GO TO 3818 

PRINT AT 21,0; FLASH 1;"Verificando el fichero " 

VERIFY z$ DATA ac) 

VERIFY z$ DATA b(> 

VERIFY z$ DATA b$(>) 


VERIFY z$ DATA c(> 

VERIFY z$ DATA £$() 

CLS 

PRINT AT 11,0;z$;" verificado el fichero" 
GO TO 310 

PRINT ,,"Se detiene el programa" 

STOP 


PRINT ,,TAB 10;"Borrar fichas" 

GO SUB 8508 

FOR ¡i=1 TO cr-e 

IF nsx<>0 THEN LET b$(b+1-1)>=b$(e+¡) 

IF nn<>8 THEN FOR j=1 TO nn: LET a(b+i-1,j)=ale+i,Jy>»: NEXT y 
NEXT ¡ 

LET cr=cr-e+b-1 


PRINT ,,"Fin del borrado" 

GO TO 318 

PRINT ,,TAB 9;"Buscar fichas" 
GO SUB eses 


PRINT ,,"Nombre del campo a buscar" 

INPUT z$1 IF LEN z$>108 THEN LET z$=z$(1 TO 10> 
FOR ¡=1 TO ns+tnn 

IF $8(i1,1 TO LEN z$)=z$ THEN GO TO 5400 

NEXT | 

GO SUB 4858: PRINT ¡"6": GO TO 318 

PRINT ,,"Introduce la clave de busqueda" 

INPUT z$ 

PRINT ,,z$;" aparece en las fichas :" 

IF ¡ns THEN GO TO 5788 

FOR J=b TO e 

FOR k=b(1,1) TO (bC(¡i,2)-C(bCi,2)-bCi,1>-LEN 2$))*x 
NOT (bC(1,1>+LEN z$>b(1,2>> 

IF z$=b$(J,k TO k+LEN z$-1) THEN PRINT TAB 6: GO TO 5688 
NEXT k 

NEXT j 

GO TO 3108 

FOR ¡=1 TO nn 

FOR j=b TO e 

IF a(J,i>=VAL z$ THEN PRINT TAB 6; 

NEXT J 

NEXT i 

GO TO 318 

LET z$=CHR$ (CODE z$-32x*(CODE z$>96)> 

RETURN 

BEEP .2,24 

PRINT 

PRINT "Error ”; 

RETURN 

LET w=PEEK 23627+256x*PEEK 23628 

RETURN 

IF cr=8 THEN PRINT ,,"Archivo vacio": GO TO 318 
PRINT ,,"Introducir los Nos. de la prime-ra y de la 
ultima ficha" 

INPUT b,e 

LET br=1i+(b-1)*(b>08)+(cr-b>)*(b>=cr) 

LET exb+1+(e-b-1)*(e>b>+(cr-e)x*te>»=cr> 

RETURN 
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2. DIARIO 


2. DIARIO 


El programa precedente (FICHERO) asigna una cantidad prefijada de 
espacio para cada una de las variables de un campo dentro de cada 
registro. El campo asignado a cada "MIEMBRO" del club de 
microcomputadores, por ejemplo, ocupa 20 caracteres. En la mayor 
parte de los casos alguno de los caracteres podrian no ser utilizados 
con eficacia al tener el nombre de un miembro una longitud menor 

de 20 caracteres. Esta “claro que la técnica de almacenamiento de 
información en registros de longitud fija desperdicia una gran cantidad 
de espacio. 


Yo he escrito el programa DIARIO para ilustrar la alternativa más 

simple que permite variar la longitud de los campos de las FICHAS 
tomadas de una en una. Los datos correspondientes a un día cualquiera 
constituyen una FICHA. Las caracteristicas más importantes del programa 
son las siguientes: 


l. Los datos pueden ser de cualquier longitud (y los llamaremos 
ANOTACIONES). 

2. Sólo se asigna espacio para aquellos días en que se introduce algún 
dato. 

3. Los datos correspondientes a un mismo día se almacenan automáticamente 
en la misma FICHA. 

4. Los datos introducidos fuera de fecha se descartan automáticamente. 

5. Se utiliza una doble técnica de búsqueda para localizar un dato dado. 


ESTRUCTURA DEL PROGRAMA 


La función de las principales variables del programa se muestra en 
la tabla TYl. 


VARIABLES CONTENIDO 


tr Número total de datos permitidos. 

z5$ Cadena literal utilizada para almacenar los datos. 
tz Longitud máxima de z5 

p (2, tr + 1) Cadena numérica. El primer elemento de cada par 


almacena la fecha en un código numérico. El segundo 
elemento señala la localización del dato dentro de z$. 


nr Número actual de datos ya introducidos. 
m$ Cadena literal que almacena el número de dias de 
cada mes. 


TABLA TY1. Nombre y utilización de las principales variables. 


El programa utiliza repetidamente 2 subrutinas: Una codifica una fecha 
y la otra busca el dato correspondiente cuando se le solicita. La primera 
subrutina ("FECHA") se encuentra entre las líneas 400 y 630. El programa 
pregunta al usuario: 

- día del mes (cifra con 2 digitos) 

- nombre del mes (tres o más letras) 

- año (cifra con los últimos dos digitos como minimo). 
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DIARIO 


La subrutina comprueba la sintáxis de la fecha, incrementa el segundo 
elemento de (d) si el año es BISIESTO y almacena la fecha de forma 
numérica en la variable (da) usando un código simple. Así 19 diciembre 
1982 es almacenado como 21219, por ejemplo (*). 


La subrutina de "BUSQUEDA" se encuentra entre las líneas 7000 y 
7270. Todos los datos introducidos en z5 se mantienen ordenados por 
fecha de entrada en el primer elemento de la cadena (p). Asimismo, 
para determinar si existe ya un dato almacenado en (da), es necesario 
comparar (da) con cada uno de los primeros elementos de la cadena 
(p). La subrutina siguiente ilustra un método simple para realizar esta 
búsqueda dentro de (p), donde (nr) es el número de datos del DIARIO. 


10 FOR i¡ = 1 TO nr 

20 IF da = p (l, i) THEN PRINT "ENCONTRADO UN DATO": STOP 
30 NEXT ¡ 

40 PRINT "NO HAY DATOS" 

50 STOP 


Esta técnica es necesariamente lenta porque es necesario comprobar 
cada valor de p (l, ¡). La subrutina "BUSQUEDA" utiliza un método 
más rápido llamado "DOBLE BUSQUEDA”, que presupone que los datos 
se encuentran ordenados por la fecha de entrada. Los pasos que se 
siguen en este método son los siguientes: 


]. Determina el elemento situado en el medio del recorrido de (p) 
para buscarlo. 

2. Compara (da) con dicho elemento. 

3. Si (da) es MENOR que ese elemento, desvía su atención hacia la 
mitad inferior de p, GO TO 1). 

4. Si (da) es MAYOR que ese elemento, desvía su atención hacia 
la mitad superior de p, GO TO 1). 


Supongamos, por ejemplo, que (da) es igual a p (1, 47) y el número 
de datos es 83. El proceso de búsqueda podría ser como sigue: 


83 
1.—Se compara da a p (" O id 


83 — 41 

2.—da es mayor que p (1,41) compara da con p (a + E) = p (1,62) 
62 — 41 

3.—da es menor que p (1,62) compara da con p (ue + —73 7) = p (1,51) 
51 — 41 

4.—da es menor que p (1,51) compara da con p sd + a) = p (1,46) 
51 — 46 

5.—da es mayor que p (1,46) compara da con p ps + a) = p (1,48) 
48 — 46 

6.—da es menor que p (1,48) compara da con p ue + E a (1,47) 


A 
l 


7.—da = p (1,47) 


(*) NOTA DEL TRADUCTOR: 2, por 1982; 12 por el mes de DICIEMBRE; 19 por el 
día del mes. 
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2. DIARIO 


Como puede observarse, la búsqueda se ha realizado en 7 etapas en 
lugar de las 47 que necesitabamos antes. El maximo número de etapas 
requerido para localizar un dato se obtiene mediante la ecuacion 


donde (nr) es el número de datos introducidos hasta ese momento y 
(m) el número entero más pequeño para el cual la inecuación es cierta. 


COMO UTILIZAR EL PROGRAMA "DIARIO" 


Lo primero que realiza el programa es una definición de las cadenas 
que va a necesitar. A continuación lee los datos de los meses y los 

días de cada mes en los DATA de la linea 200, asignándolos a MS(1) 

y d(i) mediante READ (líneas 230 y 260). Habiendo iniciado el programa 
de esta forma no debemos utilizar "RUN" para ejecutar el programa 
sino "GO TO 300", ya que de otra manera podríamos perder el contenido 
de las variables. 


El programa pregunta la fecha actual, utilizando la subrutina "FECHA" 
y la compara con los datos de la cadena índice utilizando la subrutina 
"BUSQUEDA". Si existen datos para fechas anteriores que la fecha 
actual serán borrados (líneas 900 a 970). 


El MENU de OPCIONES se encuentra en la línea 1010 y se obtiene 

por pantalla tal como se ilustra en la FIGURA FYl, pudiendo el usuario 
escoger entre ellas. Las opciones sobre VERIFICAR, IMPRIMIR o BORRAR 
una anotación son tan claras que no necesitan mayor explicación. Hacer 
uso de las rutinas "FECHA" y "BUSQUEDA" ya mencionadas para localizar 
el item requerido e imprimirlo o borrarlo si es necesario. 


Diario 13 JULIO 1984 
Menu 

Introducir anotaciones 

Verificar anotaciones 


I 
Ú 
Imprimir anotaciones P 
Borrar anotaciones B 

H 


Parar el programa 
FIGURA FY1l. El MENU de OPCIONES de "DIARIO" 


Un ejemplo de los resultados del programa se muestran en la Figura 
FY2. Los datos se refieren a una visita a la República Federal Alemana. 


La opción INTRODUCIR un dato es un poco más compleja poco utilizada 
también las subrutinas básicas anteriores. Si exista ya un dato para 

la fecha en cuestión, le número datos se sitúa al final del dato ya 
existente pero separados ambos por una coma y un espacio. Si un dato 
no existe, el programa introduce el nuevo dato en su orden de fecha. 
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DIARIO 


El programa, tal como está escrito, tiene capacidad para 100 datos 

(200 caracteres) y utiliza casi todo el espacio disponible en una máquina 
de 16K. Con una de 48K los valores de (tr) y (tz) -líneas 100 y 110- 
podrían aumentarse a 1700 y 34000 respectivamente. 


ánotacion del 1% JULIO 17324: 
13,34 Salida de Heathrow: 
15,368 Vuelo BA 7282 a Frankfurt 


Anotacion del 26 JULIO 17234: 
Visita a Karlsruhe 


ánotacion del 22 JULIO 1724: 
VUisita a Munich 


áanatacion del 22 JULIO 1784: 
Visita a Wiesbaden 


Anotacion del 2% JULIO 1734: 
Visita a Saarbrucken 


áAnotacion del 38 JULIO 19824: 
18,25 BA 725 Franck+turt a Heathrow 


FIGURA FY2. El itinerario de una visita a la República Federal Alemana. 


PROGRAMA PYIl. DIARIO 


100 LET tr=100 
110 LET tz=2000 
1208 DIM p(2,tr+1> 
130 DIM z$(1,tz> 
148 LET nr=08 

150 LET nr=8 


23 


2. DIARIO 


200 DATA "ENERO" ,"FEBRERO" , "MARZO" ,"ABRIL","MAYO", "JUNIO", 
"JULIO" "AGOSTO" ,”"SEPTIEMBRE" , "OCTUBRE" , "NOVIEMBRE", 
"DICIEMBRE" ,31,28,31,38,31,38,31,31,30,31,30,31 

210 DIM MS$(12,18>1 DIM DC12) 

220 FOR ¡wi TO 12 

230 READ m$(i)>»:1 NEXT ¡ 

250 FOR ¡i=1 TO 121 READ d(i>: NEXT ¡ 

300 PRINT TAB 11; PAPER $; INK 8;" Diario "; PAPER 7,,,TAB 4; 
PAPER 6;"Introduce la fecha de hoy" 

305 GO SUB 8888 

319 GO SUB 488 

320 LET d$=STR$ fecha+”" "+m$(i)+" "+STR$ y 

338 GO SUB 7808 

348 IF nr=08 THEN GO TO 1088 

350 IF ecQ THEN LET ex-e-1: GO TO 980 

3608 LET eze! 

378 GO TO 988 

410 PRINT ,,TAB 0; PAPER 6;"Introduce el dia, mes y ano  " 

CHR$ 8¡CHR$ 8;CHR$ 8;¡CHR$ 8; OVER 1;" " 

420 PRINT ,,"Fecha : "* 

438 INPUT fecha 

4408 PRINT fecha 

450 PRINT ,,"Mes LY, 

4608 INPUT n$: IF LEN n$<3 THEN BEEP 1,12: GO TO 44n 

470 FOR i=1 TO 3 

4808 LET n$(¡>=CHR$ (CODE n$Ci)-32*(n$(1)>"> ">> 

490 NEXT ¡ 

500 FOR ¡mi TO 12 

510 IF n$(1 TO 3)>=m$(¡,1 TO 3) THEN GO TO 544 

520 NEXT ¡1 BEEP 1,121 GO TO 468 

540 PRINT m$( 1) 

558 PRINT "Ano "¡CHR$ 8¿CHR$ 8;CHR$ 8;CHR$ 8; OVER 1; 

n 1 ”, 

5608 INPUT y: IF y<808 OR y>2088 THEN BEEP 1,12: GO TO 544 

570 IF y>=188 AND y<1989 THEN BEEP 1,12: GO TO 540 

580 LET y=y+1900*(y<1980> 

590 PRINT y 

595 PAUSE 1060 

$08 LET d(2)=28+(ym=4x* INT (y/4) AND y<>2000) 

610 IF fechac<i OR fecha»d(1)> THEN BEEP 1,12: PRINT ,, PAPER 4; 
TAB 4;" Datos erroneos -repite ": PAUSE 1898: GO TO 489 

620 LET da=fecha+|*100+(y-1989)*19000 

630 RETURN 

9988 LET long=p(2,e+1) 

910 LET z$(1,1 TO p(2,nr+1>-long)=z$(1,p(2,e+1)+1 TO p(2,nr+1>> 

928 LET nremnr-e 

930 FOR ¡=1 TO nr: LET p(1,i>=p(1,e+i> 

950 LET p(2,¡i>=p(2,e+1)-long 

968 NEXT ¡ 

978 LET p(2,nr+1>=p(2,nr+e+1)-long 

1088 CLS 

10108 PRINT. PAPER 4;" Diario "; 
1015 PRINT " "¡ds 

1920 PRINT ,,TAB 12; PAPER 4;"Menu" 


1021 PRINT ,, PAPER 68;"Introducir anotaciones 1% 
1022 PRINT ,, PAPER 6;¡"Verificar anotaciones Yost 
10923 PRINT ,, PAPER 4;"Imprimir anotaciones po 
1024 PRINT ,, PAPER 6;"Borrar anotaciones Bo" 
1925 PRINT ,, PAPER 6$;"Parar el programa no" 
1026 INPUT as: IF CODE a$>96 THEN LET a$=CHR$ (CODE a$-322)> 


1938 GO TO 1108+4908*(a$="]">)+9098x*(a$="U">+1400x*(a$="P")+1900x 
(ab="B")+2400x*(a%="H") 

1188 PRINT ,, PAPER 4;"Pulsa una tecla para ¡ir al menu " 

1118 PAUSE 4 
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1120 
15009 
1518 
1528 
15380 
1540 
1543 
1545 
1547 
1550 
15408 
1518 
1428 
14630 
1440 
1650 
1708 
1710 
1720 
1750 
1760 
1770 
1788 
17908 
1808 
1810 


18208 
1850 


1860 
1890 
1990 
2000 
2019 
2028 
2030 
2040 
2050 
2060 
2070 
2509 
2510 
2520 
2530 
2548 
25589 
25680 
2578 
3000 
3010 
3020 
30308 
39048 
3058 
3060 


30708 
3080 
3090 
3108 
3118 
3120 
3130 


GO TO 10080 

CLS : PRINT. PAPER 6;" Introduccion de anotaciones  " 
GO SUB 408 

LET es=STR$ fecha+" "+m$(i)+" "+STRS y 

PRINT ,,"Cual es la anotacion >?" 

INPUT ws$ 

PRINT 

PRINT ws$ 

PRINT 

LET long=LEN w$ 

IF nr<>B8 THEN GO TO 1708 

LET nr=nr+1 

LET p(1,1>=da 

LET p(2,1)=8: LET p(2,2>»=long 

LET z$(1,1 TO long)=w$ 

GO TO 1108 

GO SUB 7064 

IF exa THEN LET e=-e: GO TO 1850 

LET e=eu 

LET nr=nr+1 

LET p(2,nr+1>=p(2,nr>+long 

FOR ¡i=nr TO e+1 STEP -1 

LET p(1,i)=pC1,i-1): LET p(2,¡1>=p(2,i-1)>+l1onQ 

NEXT i 

LET p(1,e>»=da 

LET z$(1,1 TO p(2,nr+1>)=z28$(1,1 TO p(2,e>>+tw$+z$(1,p(2,e)+1 
TO p(2,nr+1))> 

GO TO 110808 

LET z$(1,1 TO p(2,nr+1)+*1o0ng+2)=z$(1,1 TO p(2,e+1)>+": 
*+w$+z7$(1,p(2,e+1)+1 TO p(2,nr+1)) 

LET p(2,nr+1)=p(2,nr+1)>+10ng+2 

NEXT ¡ 

GO TO 11008 

CLS : PRINT TAB 2; PAPER 6;*" Verificar una anotacion " 
GO SUB 48081: GO SUB 7008 

LET es=STRS fecha+t" "+m$(i)+” "+STR$ y 

IF e<0 THEN LET e=-e: GO TO 2058 

PRINT ,, PAPER 4;"No hay nada anotado el "¡e$: GO TO 1108 
PRINT ,, PAPER 4;"Anotacion del ";¡e$;”:" 

PRINT ,,z9$(1,p(2,e>+1 TO p(2,e+1)> 

GO TO 1108 

CLS : PRINT TAB 3; PAPER 6;" Impresion de anotaciones  " 
GO SUB 488: GO SUB 700988 

LET es$=STR$ fecha+" "+m$Ci)+" "+STR$ y 

IF ex8 THEN LET e=-e: GO TO 2558 

LPRINT ,,"No hay nada anotado el "¡e$: GO TO 1198 
LPRINT ,,"Anotacion del "¡e$;":" 

LPRINT ,,28$(1,p(2,e>+1 TO p(2,e+1)>) 

GO TO 1108 

CLS : PRINT TAB 6; PAPER 4;" Borrar anotaciones " 

GO SUB 4088: GO SUB 70088 

LET es=STRS fechat" "+m$Ci)+" "+STR$ y 

IF ec8 THEN LET e=-e: GO TO 1108 

PRINT ,, PAPER 4;"No hay nada anotado el "¡e%: GO TO 1108 
LET long=p(2,e+1)-p(2,e> 

LET z$(1,1 TO p(2,nr+1)-long>=z$(1,1 TO p(2,e)>+ 
z7$(1,p(2,e+1)+1 TO p(2,nr+1>) 

LET nr=nr-1 

FOR ¡=e TO nr 

LET p(1,¡i>=p(1,1+1) 

LET p(2,i>=p(2,1+1)>-long 

NEXT i 

LET p(2,nr+1)>=p(2,nr+2>-long 

GO TO 11060 
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35009 
3518 
$088 
6949 
$198 
$118 
61208 
7008 
7018 
7028 
7038 
70509 
7060 
7168 
7170 
7260 
7278 
8880 
8818 
8020 
8030 
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CLS : PRINT "Programa parado" 


STOP 
PRINT "Da",: INPUT da: PRINT da 
LET nr=180 


FOR ¡=1 TO 108 

PRINT ¡,p(1,i) 

NEXT i 

LET el=0: LET eu=nr+1 

IF eu=e1+1 THEN RETURN 
LET e=el+INT (C(eu-e1)/2) 
G0 TO 7858+1808*(da<p(1,e>>+208x*(da»p(1,e>) 
LET e=-e: RETURN 

STOP 

LET eu=e 

GO TO 7818 

LET elze 

GO TO 7018 

POKE USR "a"+1,8 

POKE USR "a",BIN 061111008 


FOR x=USR "a"+2 TO USR "a"+7: POKE x,0: NEXT x 


RETURN 
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3. CALENDARIO 


Este programa puede ser utilizado para generar el calendario de cualquier 
mes de un año comprendido entre 1980 y el año 2000. El calendario 

para cada mes es visualizado en pantalla (o impreso) como un tablero 
con retícula de 7 x 5 con el día del mes situado aproximadamente 

en el centro de cada cuadrado y para todos los dias hábiles del mes 

y año. Los dias de la semana aparecen en la parte superior del tablero. 


El programa fue escrito una vez terminado el anterior (DIARIO), por 

lo que utiliza algunas subrutinas y variables utilizadas allí. Por ejemplo, 
los nombres de cada mes y el número de días de cada uno se almacenan 
en (mS) y (d) en una sentencia DATA? en la cual también se almacenan 
los días de la semana como (dS). 


Una vez comenzada la ejecución del programa se le pregunta al usuario 
si desea una copia de la hoja mensual de calendario que se obtiene 
como resultado final. Para ello se ha de introducir el mes y el año 
para los cuales se desea el calendario. Sólo son significativas las 3 
primeras letras del nombre del mes y se pueden incorporar al programa 
tanto en letras mayúsculas como minúsculas. De la misma forma se 
pueden omitir los 2 primeros digitos del año. 


Por tanto, son aceptables las siguientes fechas: 
Sept 82 SEPT 82 Sep 1982 


Un calendario ejemplo, realizado para diciembre de 1982 se muestra 

en la figura FC]. Lo usual es que el calendario comience en el LUNES 

de la semana en que el mes empieza. Como el 1-12-82 fue MIERCOLES 
y el mes tiene 31 días hay 2 cuadrados vacios tanto al comienzo como 

al final del mes. 


FIGURA FCI. El calendario para diciembre de 1982. 
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La situación puede complicarse cuando el primer día de un mes con 

3l es SABADO o DOMINGO. Si la primera semana comenzara un lunes 
quedarian vacios 5 Ó 6 cuadrados antes del comienzo del mes y los 

30 6 31 días podrían requerir un febrero con 36 y 37 cuadrados. 


Para resolver esta situación se almacenan 9 días (y no 7) en la cadena 
literal de los dias de la semana (d$), siendo tanto los 2 primeros como 
los 2 últimos "SAB" y "DOM". Si un mes comienza un sábado o domingo 
el programa sitúa el primer cuadrado del tablero en ese día. El resultado 
se ilustra en la FIGURA FC2 para enero de 1983. 


ERO 19853 
a - s 


FIGURA FC2. El calendario para enero de 1983 


PROGRAMA PCI. CALENDARIO 


5 BORDER 6: INK 8 

6 PAPER 5: CLS 

108 PRINT TAB 4; FLASH 1;"Calendario para Spectrum" 

20 PRINT ,,"Quieres el calendario para un mes o para un año” 
(m/a)" 

30 INPUT z$: LET z$=CHR$ (CODE z$-32*(Z7$>">*")):5 
IF z2$<>"M" AND z$<>"A" THEN BEEP 1,17: GO TO 30 
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PRINT ,,"Quieres imprimirlo ? (s/n)" 

INPUT c$: LET cé$=CHR$ (CODE c$-32x*(c$>"*")): 

IF c$<>"S" AND c$<>"N" THEN BEEP 1,17: GO TO 56 

DATA "ENERO" ,"FEBRERO"” ,"MARZO","ABRIL" "MAYO", "JUNIO", 
"JULIO" "AGOSTO" ,"SEPTIEMBRE" ,"OCTUBRE” , "NOVIEMBRE", 
"DICIEMBRE","Sab","Dom","Lun","Mar","Mie","Jue","Uje", "Sab", 
"Dom" ,31,28,31,38,31,38,31,31,38,31,308,31 

DIM m$(12,10): DIM d$(9,3>: DIM d(12> 

FOR ¡i=1 TO 12 


READ m$(i¡> 
NEXT ¡ 

FOR ¡i=1 TO 9 
READ d$( ¡> 
NEXT i 

FOR ¡=1 TO 12 
READ d(i> 
NEXT ¡ 


BORDER 4: INK 7: PAPER 1: CLS : BEEP 1,38 

IF z$="A" THEN GO TO 3008 

PRINT TAB 6; FLASH 1;"Calendario de un mes.”"; 
FLASH 0,,," Introduce mes y año" 


PRINT ,, 

PRINT "Mes = ", 

INPUT n$: IF LEN n$(3 THEN BEEP 1,17: GO TO 520 
FOR ¡i=1 TO 3 

LET n$(i)=CHR$ (CODE n$ci)-32*(n$(1)>"")) 

NEXT i 

FOR i=1 TO 12 

IF n$(1 TO 3)=m$(i,1 TO 3) THEN GO TO 400 

NEXT i 


BEEP 1,17: GO TO 518 
PRINT— FLASH 1;¡m$(i>; FLASH 8 


PRINT ,, 
PRINT "Ano =", 
INPUT y: IF y<88 OR y>2880 THEN BEEP 1,17: 60 TO 428 


LET y=y+1990*(y(1988) 

PRINT— FLASH 1;y; FLASH 0 

PAUSE 158 

GO SUB 788 

STOP 

LET j=8 

IF ¡i=1 THEN GO TO 8008 

LET d(2)=28+(y=4x* INT (y/4) AND y<>2000) 


FOR 1=1 TO ¡-1 
LET j=j+d(1) 
NEXT 1 


LET j=j+9+(y-1980)*365+ INT ((y-1981)/4) 
LET jej+1-2xINT (J/7) 

PAPER 7: INK 11 BORDER 6: CLS 

PRINT TAB 8¡m$(¡)¡TAB 19;y 

LET b=-2+4x(j-2+(3-j)*(j(3)) 

LET a=5 

FOR l=1 TO dci» 

PRINT AT a-1,b+13 INK 2313 INK 1 


LET b=b+4 

IF b>26 THEN LET b=2: LET a=a+4 
NEXT 1 

LET j=j-(j-3)*(j>3) 

LET a=2 


FOR l=j TO +6 
PRINT AT 1,ajd$(1> 
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1548 LET a=a+4 

1558 NEXT 1 

2009 FOR a=15 TO 239 STEP 32 

28180 PLOT a,B 

2028 DRAW 8,167 

2038 NEXT a 

2058 FOR a=8 TO 167 STEP 32 

2068 PLOT 15,a 

2070 DRAW 224,0 

2080 NEXT a 

2098 IF c$="S" THEN COPY 

2095 IF INKEY$="" THEN GO TO 2895 

2100 RETURN 

3909 PRINT TAB $; FLASH 1;"Calendario para un año"; FLASH B,,,"In+t 

roduce el ano" 

3005 PRINT ,, 

3018 PRINT "Ano ="; 

3028 INPUT y: IF y<88 OR y>2808 THEN BEEP 1,17: GO TO 3828 

3030 IF y>180 AND y<1988 THEN BEEP 1,17: GO TO 3028 

3049 LET y=y+1900*(y<1980) 

3050 PRINT y 

3060 PAUSE 159 

31008 IF c$="S" THEN LPRINT TAB 7;"Calendario para ";y: 
LPRINT : LPRINT 

31109 FOR ¡i=1 TO 12 

3128 GO SUB 70808 

3138 IF c$="S" THEN LPRINT : LPRINT 

3140 NEXT ¡ 
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4. AHORCADO 


Esta es una versión del conocido juego, consistente en adivinar una 

palabra letra a letra. El programa comienza con un vocabulario muy 
limitado, pero aprende muy rápidamente. El usuario puede elegir entre 
ENSEÑARLE al programa las nuevas palabras bien mediante su introducción 
explícita o bien jugando contra la máquina. En este último caso el 
programa "AHORCADO" añade palabras aún desconocidas a su vocabulario. 


La parte del programa comprendida entre las líneas 10 y 95 incluye 

varios parámetros que determinan las dimensiones relativas y la localización 
del AHORCADO. La figura del AHORCADO se dibuja mediante llamadas 

a las subrutinas de las lineas 8000, dependiendo la parte dibujada del 

valor obtenido en la subrutina correspondiente. 


El programa toma su vocabulario inicial de los DATOS incluidos en 

la cadena z5. La longitud y número de palabras incluidos en los DATOS 
están en función del tamaño de (z$), dependiendo sólo que estén escritas 
en letras mayúsculas y que la última palabra sea "FIN". 


El MENU de opciones se encuentra en la línea 1000, y aparece tal 
y como se ilustra en la Figura FJl. 


AHORCADO 
Aumentar vacabulario I 
ZX Spectrum adivina PalabraG 
TU adivinmas una palabra e 
Grabar el vocabulario S 
Cargar el vocabulario L 
Detener el programa H 


FIGURA FIl. MENU de opciones de AHORCADO 


PROGRAMA PIJl. AHORCADO 


10 LET p1i=0: LET p2=24 

15 LET p3=32: LET p4=16 

20 LET pS5=p1: LET pó=p2+p4 

25 LET p7=128 

30 LET p8=p4+p7 

35 LET p9=72 

409 LET p10=p5+p9 

45 LET p11=24 

50 LET p12=8: LET p13=p8-p11-p12 
55 LET pi14%=p13-p12: LET p15=32 
60 LET plé=p13-2x*p12 

65 LET p1i7=24: LET p18=8 

78 LET pi9=p14-p15 

75 LET p20=24: LET p21=48 
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2080 LET 1z=3008 

2109 DIM z$(17+2) 

220 LET ez=0 

230 LET nz=08 

248 DATA "BYTE","CABEZON", "SPECTRUM", "PROGRAMA", "COMPLITADOR", 
"HEXADECIMAL" ,"FIN" 

250 READ x$ 

260 LET z$( TO ez+LEN x$+1)=z$( TO ez>+CHR$ LEN x$+x$ 

270 LET ez=ez+LEN x$+1 

288 LET nz=nz+1 

290 IF x$<>"FIN" THEN GO TO 258 

1088 CLS : PRINT ,,TAB 11;"AHORCADO" 

1010 PRINT ,,,,"Aumentar vocabulario"; TAB 31;"1ZX Spectrum adivira 
palabra";TAB 31;"GTu adivinas una palabra";¡TAB 31;"YGrabar +! 
vocabulario";¡TAB 31;"SCargar el vocabulario"; TAB 31;"LDetene=r 
el programa";¡TAB 31;"H" 

1028 INPUT y$: LET y$=CHR$ (CODE y$-32*(y$>"£")) 

1038 GO TO 110808+4990x*(y$="]")+90890*(y$="G")+1900x*(y$="Y">+1400+ 
(y$="S")+2400x*(y$="L")+2900*(y$="H"> 

1180 INPUT "Pulsa ""ENTER"" para continuar";y$ 

1118 GO TO 10098 

1500 PRINT ,,TAB 6;"Aumentar vocabulario" 

1520 PRINT 

1530 LET pw=1 

1540 PRINT z$(pw+1 TO CODE z$(pw+pw);", "; 

1550 LET pw=pw+1+CODE z$(pw> 

1560 IF pw<ez THEN GO TO 1548 

15708 PRINT 

16088 INPUT "Introduce una palabra. ENTER para terminar";¡x%* 

1618 IF x$="" THEN GO TO 1088 

1620 IF ez+LEN x$>=l]lz THEN PRINT : 

PRINT ,,"No has dejado espacio": GO TO 1108 

1638 FOR ¡=1 TO LEN x$ 

1648 LET x$(¡1>=CHR$ (CODE x$C(¡>-32*(x$(¡1>>"É£">> 

1650 NEXT ¡ 

1660 LET z$( TO ez+1+LEN x$)=z$( TO ez>+CHR$ LEN x$+x$8 

1670 LET ez=ez+1+LEN x$ 

1688 LET nz=nz+1 

14908 GO TO 1408 

2008 CLS : PRINT TAB 0;"2ZX Spectrum adivina una palabra”; 

2010 INPUT "De cuantas letras ? "¡n! 

2028 IF nl<8 THEN BEEP .2,24: GO TO 2810 

2038 PRINT AT 5,16;n1;" letras” 

2040 PRINT AT 28,(32-n1)/2; 

2050 FOR ¡i=1 TO n1 

2060 PRINT *"-"; 

20780 NEXT ¡ 

2088 PRINT 

2098 LET s=8 

2108 LET sub=7980 

2118 DIM m(26> 

2120 LET n=1+INT (26x*RND> 

2130 IF m(n>»=1 THEN GO TO 2128 

2148 LET m(n>=1 

2150 LET x$=CHR$ (64+n) 

2170 PRINT AT 21,4;"La palabra contiene "¡x$;" ?" 

2188 INPUT y$: IF LEN y$<1 THEN BEEP .2,24: G0 TO 21€n 

2198 IF y$(1)="S" OR y$(1)="<s" THEN GO TO 2488 

2208 LET sub=sub+180 

2218 GO SUB sub 

2228 IF subx89B88 THEN GO TO 2128 

2238 PRINT AT 7,16; FLASH 1;"Has ganado” 

2248 PAUSE 3088 

22508 INPUT "Cual era la palabra ? ";¡x%$ 
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2260 
2270 
2275 


2280 
2290 
2300 
2310 
2320 
2330 
2348 
2400 
2410 
2428 
2438 


2440 
2450 
2468 
2470 


25008 
2510 
2528 
2530 
2540 
2550 
2560 
2565 
25708 
2580 
30009 
3010 
3020 
3030 
3040 
3050 
3100 
3118 
3120 
3138 
3148 
3150 
31680 
3178 
3180 
3199 
3200 
3205 
3210 
3228 
3230 


3240 
3250 
3260 
3270 


3280 
32909 


IF LEN x$<>n1 THEN BEEP .2,24: GO TO 2250 


LET pw=1 
FOR i=1 TO nl: LET x$(¡1>)=CHR$ (CODE x$C1)-32*(x$C 10 LR 000: 
NEXT 


IF x$=z$(pw+i TO pw+CODE z$(pw)>)> THEN GO TO 110M 
LET pw=pw+CODE z$(pw)+1 

IF pw<ez THEN GO TO 2288 

IF ez+nl+1>=1z THEN GO TO 119088 

LET z8$( TO ez+nl+1>=z$( TO ez)+CHR$ nl+x$ 

LET ez=ez+n1+1 

LET nz=nz+1: GO TO 1108 


INPUT "Introduce num. de veces ";¡n 

IF n<8 OR n>»nl THEN BEEP .2,24: GO TO 2480 

LET m=08 

INPUT "Introduce posicion letra "¡i: IF 1<1 OR 120) THEM 
BEEP .2,24: GO TO 2438 

PRINT AT 28,(32-n1>)/2+i-1;x$ 


LET m=m+1: IF m<n THEN GO TO 2430 

LET s=s+1: IF s<nl THEN GO TO 2128 

PRINT AT 7,16; FLASH 1;"Mala suerte ' ": PAUSE 300: 
GO TO 11084 

PRINT ,,TAB 8;¡"Grabar vocabulario" 

INPUT "Introduce nombre ";y$ 

IF LEN y$>10 THEN BEEP .1,24: GO TO 2514 

LET z$(1z+1)=CHR$ (ez-256x*I1NT (ez/256>) 

LET z$(1z+2)=CHR$ (INT (ez/256)>) 

SAVE y$ DATA z$(>) 

INPUT "Rebobina la cinta y pulsa ENTER y PLA»"¡x% 


PRINT AT 11,8; FLASH 1;" VERIFICANDO e 
VERIFY y$ DATA 2z$(>) 
GO TO 1109 


LET n=1+ INT (nz *RND)> 

CLS : PRINT ,,TAB 12;"AHORCADO" 

LET nw=1: LET pw=1 

IF nw=n THEN GO TO 3100 

LET nw=nw+1: LET pw=pw+CODE z$(pw>+1 


GO TO 30830 

LET nl1=CODE z$(pw> 

PRINT AT 5,16;n1;" letras" 
PRINT AT 20,(32-n1>/2; 

FOR ¡i=1 TO n! 

PRINT "-"; 

NEXT 1 

PRINT 


LET x$=z$(pw+1 TO pw+CODE z$(pw)) 

DIM 1(LEN x$> 

LET sub=79808 

INPUT "Introduce una letra ";y$ 

LET ys$=CHR$ (CODE y$-32*(y$>"£")) 

LET in=0: LET s=8 

FOR ¡i=1 TO LEN x$ 

IF 1C(0i)=8 AND x$(¡>=y$(1) THEN LET 1Ci>=1: 

PRINT AT 28,(32-n1>/2+i-1;y$: LET ¡in=1 

LET s=s+1(¡) 

NEXT ¡ : 

IF in=0 THEN LET sub=sub+188: GO SUB sub 

IF s=LEN x$ THEN PRINT AT 7,16; FLASH 1;"Has acertado": 
PRINT— FLASH 1;AT 9,16;89-sub/108;" puntos": 

PRINT AT 28,(32-n1)/2; FLASH 1;x$: GO TO 1100 

IF sub<8980 THEN GO TO 320808 

PRINT AT 7,16; FLASH 1;"Mala suerte '"; FLASH 0¡AT 9,14; 
FLASH 1;"la palabra era" 
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3308 
3318 
3330 


3348 
3350 
3360 
3500 
3518 
3520 
3538 
35404 
3550 
3560 
3579 
3580 
3590 
4009 
4018 
7999 
8088 
8e10 
8020 
8038 
8048 
8059 
8108 
8118 
8128 
8200 
8218 
8220 
8300 
8310 
8328 
8408 
8418 
8508 
8518 
8528 
86008 
8610 
85208 
8708 
8718 
8728 
8800 
8810 
8828 
8909 
38910 
8920 
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PAUSE 388 

PRINT AT 7,16;" "¡AT 9,14," 
PRINT AT 208,(32-n1)/2; FLASH 1;x$ 
PAUSE 384 

PRINT AT 20,(32-n1)/2;x% 


GO TO 1198 
PRINT ,,TAB 8;"Cargar el vocabulario" 
PRINT "Introduce el nombre" 


INPUT y$: IF LEN y$>10 THEN BEEP ,2,24: 


LOAD y$ DATA z$() 

LET ez=CODE z$(1z+1>+256*CODE 2$(12+2> 
LET pw=1 

LET nw=08 

LET pw=pw+1+CODE z$(pw) 

IF pw<ez THEN  LET nw=nw+1: GO TO 3570 
GO TO 11088 


PRINT ,,"Programa detenido" 
STOP 

SsTOP 

PLOT p1,p2 
DRAW p3,0 
DRAW 08,p4 
DRAYW -p3,8 
DRAW 8,-p4 
RETURN 

PLOT p5,pó6 
DRAW 8,p7 
RETURN 

PLOT p5,p8 
DRAW p?,08 
RETURN 

PLOT p1B8,p8 
DRAW 0,-p11 
RETURN 
CIRCLE p18,p13,p12 
RETURN 

PLOT p10,p14 
DRAW 0,-p15 
RETURN 


PLOT p10,p1ó6 
DRAW -p17,-p18 
RETURN 

PLOT p108,p16 
DRAW p17,-p18 
RETURN 

PLOT p10,p19 
DRAW -p208,-p21 
RETURN 

PLOT p10,p19? 
DRAW p28,-p21 
RETURN 


GO TO 3520 
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5. FUTBOL 


Este juego imita los juegos propios de TV y está preparado para 1l 
ó 2 jugadores. El ganador es la persona que primero logra 15 goles. 


El programa es bastante fácil, pero utiliza algunas técnicas que vale 

la pena resaltar, incluyendo un método simple de almacenamiento de 
GRAFICOS DEFINIDOS POR EL USUARIO; la utilización de los comandos 
OVER e INVERSE para obtener en pantalla las caracteristicas requeridas, 
y del comando IN para interrogar al teclado. 


La construcción y almacenamiento de caracteres gráficos se describe 
en el capítulo 14 del Manual de Programación Basic para el ZX SPECTRUM. 


Se reservan 168 bytes en la parte alta del RAM para 21 caracteres, 
teniendo cada uno de ellos 8 bytes. La forma de cada uno de los caracteres 
está determinada por los mismos de cada uno de los bytes y pueden 

ser alterados por el usuario utilizando el comando POKE USR. 


El programa FUTBOL utiliza 4 caracteres ire a) el balón (letra B) 
b) el balón en caracteres inversos (letra C), c) los dos porteros (letra R) 
y d) los dos porteros en caracteres inversos (letra S). Los mismos que 
determinan la forma de estos caracteres se hallan inicialmente en 
sentencias DATA en las líneas 200 a 230 y son transferidas al área 

de Gráficos mediante las lineas de 300 a 460. 


Consideremos el primer bucle entre las líneas 300 a 340. La línea 300 
almacena el valor de la variable del sistema UDG, situando el principio 
del área de gráficos en la variable (u). 


FIGURA FFI. Un partido de FUTBOL 
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El primer carácter que se almacena es el balón, que sustituve a la 
letra B. La B es la segunda letra del alfabeto, y asi los valores leidos 
en las sentencias DATA son introducidos en direcciones PERAL sucesivamente 


y en el segundo grupo de 8 bytes en el área de gráficos. 


El siguiente bucle, lineas 350 a 380 realiza la misma operación con 
los siguientes 8 valores, situándolos en las localizaciones gráficas para 
la letra C, y de la misma forma llevamos a cabo los otros 2 cambios. 


La línea 1000 dirige el balón alrededor del área de juego. La sentencia 
PRINT incluye OVER 1, así que, cuando la imagen se sitúa en una 
nueva localización PRINT el balón se oscurece, pero no elimina la 
imagen que ya estaba allí. El efecto se puede ver mucho mejor cuando 
el balón golpea una pared. Aquellos pixels donde no coinciden balón 

y pared toman el color PAPER, y donde coinciden se colorean con 
INK. 


La línea 2000 realiza la función complementaria de borrar el balón 

en la posición precedente. Esto lo realiza medianta la impresión de 

una imagen inversa del balón (p.e.: una imagen con sólo los pixels que 
no están en el balón eliminado). Utilizamos OVER 1 una vez más, de 

tal forma que la nueva imagen se añade a la imagen del balón hasta 
formar un carácter completamente coloreado EXCEPTO EN LOS PIXELS 
DONDE EL BALON FUE DIBUJADO SOBRE (OVER) LA OTRA IMAGEN. 
Las caracteristicas de INVERSE se utilizan aquí también, de forma 

que se borra el balón aunque alguna imagen fundamental reaparezca. 


Una técnica idéntica es utilizada para mover los porteros. Los porteros 
son controlados desde el teclado por las 22 y 4% filas de comandos. 
Cualquiera de las teclas de la parte izquierda de la 22 fila mueve 

el portero izquierdo hacia arriba. Igualmente la parte izquierda de 

la última fila le mueve hacia abajo y la parte derecha de las 23 y 

42 filas controla el portero derecho. 


El comando IN se utiliza para preguntar sobre los comandos tal como 
se describen en el capítulo 23 del Manual de Programación Basic para 
el ZX SPECTRUM. 


Esto permite a ambos jugadores presionar sus teclas al mismo tiempo. 


No sería posible realizar esto mediante INKEYS$ puesto que este comando 
solo permite presionar una tecla a la vez y, si se presiona mas de 
una tecla a la vez, es como si no se presionara ninguna de ellas. 


PROGRAMA PFl. FUTBOL 


18 BORDER 41 PAPER 4: INK 71 CLS 

20 PRINT TAB 12; FLASH 1;"FUTBOL*"; FLASH 68 

100 DRA 255,01 DRAW 0,681: PLOT 255,116: DRAW 0,59: 
DRAW -255,081 DRAW 8,-68: PLOT 0,681 DRAW 8,-60 

110 LET t=.0005: LET n=36 

120 LET a=8: LET b=08 
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NOTA: 


DATA 68,126,255,255,255,255,126,68 

DATA 195,129,8,8,0,0,129,195 

DATA 6408,60,60,68,60,608,60,68 

DATA 195,195,195,195,195,195,195,195 

LET u=PEEK 23675+256x*PEEK 23676 

FOR ¡=9 TO 7 

READ j 

POKE u+8+i,yJ 

NEXT ii 

FOR ¡i=8 TO 7 

READ j 

POKE u+ló+i,y 

NEXT i 

FOR ¡=8 TO 7? 

READ j 

POKE u+136+i,y 

NEXT i 

FOR ¡=8 TO 7? 

READ j 

POKE u+1499+i,j 

NEXT i 

LET u=2x* INT (2%*RND>-1: LET v=2x*INT (2*RND>-1 

LET c=15S+(v+1)/2: LET r=INT (22*RND)> 

PRINT— FLASH 1;AT 0,8;a;¡AT 0,22;b 

LET p=10: LET q=18: PRINT OVER 1;AT p,1;"N": 

PRINT— OVER 1¡AT q,30;;*p" 

PAUSE 58 

PRINT— OVER 1;¡AT r,c;*p" 

LET or=r+ LET oc=c 

IF c=1 AND r=p THEN LET c=2*(v<8)>: LET r=r+us 

LET v=-vu: GO TO 1100 

IF c=38 AND r=q THEN LET c=29+2*(u<8): LET r=r+u:; 
LET v=-v: GO TO 1108 

LET r=r+u: LET c=c+u 

IF r<8 OR r>21 THEN BEEP t,n: LET r=21*(r>21): LET u=-u 
IF (r<7 OR r>13) AND (c<8 OR c>31)> THEN BEEP t+.5,n: 
LET c=31x*(c>31); LET v=-u 

IF IN 57342<255 THEN PRINT OVER 1; INVERSE 1;¡AT q,30;"1/": 
LET q=q-(q<>8>: PRINT OVER 1;AT q,30;"p" 

IF IN 32766<255 THEN PRINT OVER 1; INVERSE 1;AT q,38;")I": 
LET q=q+(q<>21>: PRINT OVER 1;AT q,38;"p" 

IF IN 64518<255 THEN PRINT OVER 1; INVERSE 1;AT p,1jz"11": 
LET p=p-(p<>8)>): PRINT OVER 1;AT p,1;"f" 

IF IN 65278<255 THEN PRINT (VER 1; INVERSE 1;AT p,1;"]J": 
LET p=p+(p<>21): PRINT OVER 1;AT p,1;"M" 

PRINT OVER 1; INVERSE 1;¿AT or,oc;¿ "2" 

IF c>=8 AND c<=31 THEN GO TO 1088 

PRINT — OVER 1; INVERSE 1;¡AT p,1;"I1" 

PRINT— OVER 1; INVERSE 1;AT q,38;*1]" 

LET a=a+(c>31): LET b=b+(c<0) 

FOR ¡=8 TO 8 

PRINT— FLASH 1; INK ¡¡AT 0,8;¡a;¡AT 0,22;b 

BEEP ,1,1i 

NEXT i 

IF a<15 AND b<X15 THEN GO TO 508 

PAUSE 58: RUN 


Los caracteres graficos de las lineas 10800 y 2008 
corresponden con B y € respectivamente 
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6. MUSICA 


He aquí un programa que le ayudará a usted a escribir música utilizando 
el alatavoz incorporado al SPECTRUM. El programa puede ser utilizado 
para escribir y modificar una determinada partitura (representando 

los datos en la pantalla o mediante la impresora); cambiar la melodía 

de CLAVE (do, sol, fa) y cambiarla también de "RITMO" (presto, adagio), 
Por supuesto que el "TONO" (do, re, mi) puede también modificarse, 

y además puede ser grabado separadamente en cassette, verificado 

y vuelto a cargar en una fecha posterior. 


El programa hace un uso extensivo del comando "BEEP", el cual se 
explica con algún detalle en el capítulo 19 del Manual de Programación 
Basic para el ZX SPECTRUM. Este comando se utiliza en la forma: 


BEEP duración, tono 


donde la duración en el TIEMPO EN SEGUNDOS y el tono indica los 
SEMITONOS en relación con la nota DO CENTRAL (*). Cuando el 

usuario está escribiendo una pieza, lo que está realmente construyendo 

es una secuencia de duraciones de una forma satisfactoria, escogiendo 
parejas de valores que el programa almacena en una cadena de 2 dimensiones. 


Cuando el programa se ejecuta (mediante "RUN"), accede a una subrutina 
de inicialización que determina los datos de TONO y RITMO (número 

de notas dentro de cada compás) y utiliza una cadena para almacenar 
dichas notas. 


Los valores normales de una cadena tipo pueden ser: una longitud de 

500 para almacenar la pieza musical, entre 300 y 400 sonidos por minutos 
y el dato relativo a la posición del DO CENTRAL (que se selecciona 
mediante (0). El TONO y el RITMO se almacenan en los dos primeros 
elementos de la cadena para mayor tranquilidad cuando se GRABA 

la pieza en cinta. 


El usuario controla el programa mediante el MENU ilustrado en la 
figura FSl, el cual se genera en la línea 200 del programa. Tecleando 
las letras de la columna de la derecha del MENU el programa se dirige 
a la subrutina apropiada, tal como le indica la línea 220. 


(*) (NOTA DEL TRADUCTOR) 
La notación musical germánica (D) y anglosajona (U.K., USA) es distinta 


a la latina (L), existiendo entre ambas las siguientes equivalencias 
(en líneas generales): 


LATINA (D + UK) LATINA (D + UK) 
DO (UT) C FA F 
RE D SOL + G 
MI E LA A 
SI B 


DO CENTRAL es, en el clave de Sol en 2% línea, la nota situada en 
la 12 línea ADICIONAL DESCENDENTE del pentagrama. 
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MUSICA en el Spectrum 


MENU: 
escribir W 
Pantalla D 
impresora LP 
interpretar P 
Nuevos valores B 
cargar LE 
gratar 5 
verificar UY 
Parar H 

FIGURA FSI. MENU para MUSICA-SPECTRUM (TECLEAR W) 


ESCRIBIR UNA PIEZA MUSICAL 


Las notas se han de introducir en el programa mediante grupos de 

3 cifras. Primeramente el programa pregunta por el NUMERO (ORDINAL) 
de la nota de comienzo -normalmente 1-, para continuar con el RITMO 
(número de Sonidos por minuto) y terminar con el TONO (en semitono 
sobre el DO CENTRAL). Por ejemplo, una nota con 4 tiempos y 2 
semitonos sobre el DO CENTRAL se debe introducir mediante un 4 
seguido por un 2. 


Si se introduce un número erróneo se debe teclear -999 para volver 
a la nota anterior. Para volver al MENU se teclea 999. 
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SALIDAS POR PANTALLA E IMPRESORA (Teclear D o LP) 


Esta opción hace aparecer en la pantalla o por impresora la secuencia 
de notas actual. 


NUEVOS VALORES (COMPAS Y CLAVE MUSICAL) (Teclear B) 


Cuando se elija esta opción el programa preguntará por los nuevos valores 
del número de sonidos por minuto y el tono (relativo al DO CENTRAL). 
Dichos valores quedarán incorporados a la melodía actual. 


INTERPRETACIÓN DE LA MELODIA (Teclea P) 


Esta subrutina interpreta la melodía actual. Si se pulsa una tecla mientras 
la melodía está sonando el programa se para e indica por pantalla 

el número de la última nota interpretada. Esta facultad es muy útil 

para eliminar de forma inmediata los errores que se adviertan en la 
melodía. 


Su TABLA TSI muestra las notas de la célebre melodía "TRES RATONES 
CIEGOS". Se requieren 51 notas como minimo para interpretarla y 
sugerimos como más indicado que se interprete con 500 notas por minuto 
en la clave número 12. 


Notas de la cancion 


Nota no. Duracion Tona 
1 4 4 
2 4 2 
3 8 15] 
4 3 4 
E] al 2 
ó 8 B 
? 4 ? 
8 2 5 
yd 2 5 
18 8 4 
11 4 ? 
12 2 5 
13 2 Ss 
14 8 4 
15 LO ? 
16 Lo 12 
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on cn 
50) 


hi 


Q 01 LL Ls Ld Qu 0 
A A 
qn cn 


A 


hi 


1 
1 
1 
1 
1 
1 
1 
3 
1 
2 
1 
1 
1 
1 
1 
1 
1 
3 
1 
1 
1 
1 
1 
1 
1 
1 
2 
1 
4 
4 
8 
4 
4 
3 


TABLA TSI. Las notas de "TRES RATONES CIEGOS" 


SA SA as e e ls 


Quizás la manera más evidente en que podría desarrollarse este programa 
es permitir al usuario introducir las letras convencionales (notación 
germánica), con sostenidos (1/f) y bemoles (b) cuando se está escribiendo 
la pieza musical. 


a AA O RÓKXA O 


6. MUSICA 


Esto podría llevarse a cabo mediante el almacenamiento de números, 
simbolos, etc. en una cadena literal de referencia, comparando los 
caracteres introducidos por el usuario con la cadena de referencia 

y obteniendo así los números de las notas tal como las admite el ZX 
SPECTRUM. El resto del programa sería prácticamente idéntico a 
este: 


PROGRAMA PSI. MUSICA 


19 CLS : PRINT TAB 7;"MUSICA en el Spectrum",,;TAB 0; 
"Introduce:",,,¡TAB 5;" No. total de notas",;TAB 5; 
" "No.de sonidos por minuto",;¡TAB 5;" Tecla del DO central" 

20 INPUT nn,nb,k 

30 LET nb=nb/40 

40 LET end=8 

50 DIM B(nn+2,2) 

60 LET b(1,1)>=nn 

70 LET b(1,2»=nb 

80 LET b(2,1>=k 

200 CLS : PRINT TAB 7;"MUSICA en el Spectrum",,,TAB 14; "MENU: * 
s,»,TAB 7;"escribir"¡TAB 24;"W",TAB 7;"pantalla"¡TAB 24;"D", 
TAB 7;"impresora";¡TAB 24;"LP",TAB 7?7;"interpretar";¡TAB 24;"P", 
TAB 7; "nuevos valores";¡TAB 24;"B",TAB 7;"cargar";¡TAB 24;"L", 
TAB 7;"grabar";¡TAB 24;"S",TAB 7;"verificar";¡TAB 24;"V" ,TAB 7; 
"parar";¡TAB 24;"H" 

205 PRINT 

206 PRINT 

210 INPUT 2z$ 

228 GO TO 3080+2080x*(z$="1")+700x*x(z$="B">+1200x*(z$="D")+1700% 
(z$="L")+2200x(2$="S")+2700*(z$="P")+3200*(7%$="U")+3700% 
(z$="H")+4200x*(z$="LP")>) 

300 PAUSE 288 

310 GO TO 2808 

508 PRINT " Escribe o compon una cancion",,, 
"no.en que deseas comenzar","a escribir” 

518 INPUT ji: IF j<1 OR j>nn THEN GO TO 518 

520 PRINT ,,"Introduce la duracion y el tono de las notas.” 
»»,"Introduce:",,"999 pra terminar”, 
"*-999 para volver para atras" 

540 PRINT ,," Nota no. Duracion Tono” 

5508 FOR ¡=+2 TO nn+2 

560 INPUT a: IF a=-92292 THEN LET ¡=i-1: GO TO 588 

570 IF a=9992 THEN GO TO 908 

580 INPUT b: IF b=-999 THEN GO TO 568 

5909 LET b(i,1>=a/nb: LET bC(¡i,2)=k+b 

609 PRINT TAB 5;i-2;¡TAB 15;¿nbx*bC(i,1>;¡TAB 27;b(i,2)-k 

610 NEXT ¡ 

628 PRINT ,,"mo queda espacio" 

630 LET end=nn+2 

648 GO TO 388 

908 IF ¡>end THEN LET end=i-1 

918 GO TO 288 


1009 PRINT ,,” Cambiar ritmo y clave",,, 
“Los valores actuales son:"," Notas/minuto *,nbx*408, 
*  Tecla”",K,,,"Introduce nuevos valores" 


10189 INPUT nc)! 

1028 FOR ¡=3 TO end 

1038 LET bC(i,1)=bCi,1>*nbx*60/nc 
1948 LET b(i,2)=b(i,2)-k+1 

1059 NEXT ¡ 
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1060 
1070 
1080 
1500 


1510 
1528 
1538 
1548 
1558 
1560 
2008 
2018 


2020 
2030 
2049 
2058 
2060 
2078 
2088 
2508 
2510 


2520 
2530 
2540 
2558 
3088 
3018 
3020 
3038 
3040 
3450 
30608 
31080 


3118 
3120 
3130 
3588 
3518 


3528 
3530 
3540 
4090 
4010 
4508 


4510 
4528 
4530 
4548 


LET nb=nc/608 


LET k=1 

GO TO 48 

PRINT ,,TAB 10;" Notas de la cancion”",, 
" Nota no. Duracion Tono" 


FOR ¡=3 TO end 
PRINT TAB 5;i-2¡TAB 15;nbx*bCi,1>;¡TAB 27;bCi,2>-k 


NEXT ¡ 

PRINT ,,"Pulsa tecla para volver al menu" 

PAUSE 32768 

GO TO 268 

PRINT ,," Cargar cancion",,,"Nombre de la cancion" 


INPUT z$: IF LEN z$>10 THEN 

PRINT "Nombre demasiado largo": GO TO 2810 
LOAD z$ DATA b(> 

LET nn=b(1,1> 

LET nb=b(1,2)> 

LET k=b(2,1)> 

LET end=b(2,2>) 

PRINT ,,z$;" Bien cargado” 

GO TO 3089 

PRINT ,," Grabar programa",,,"Nombre de la cancion” 
INPUT z$: IF LEN z$>10 THEN 

PRINT "Nombre demasiado largo": GO TO 2518 

LET b(2,2)»=end 

SAVE z$ DATA b(> 

PRINT ,,z$;" Grabado” 

GO TO 308 

PRINT ,,” Tocar una cancion" 

PAUSE 108 

FOR ¡=3 TO end 

BEEP b(i,1>,bC(i,2> 

IF INKEYS$<>"" THEN GO TO 3180 

NEXT ¡ 

GO TO 268 

PRINT ,,"Interrumpido en la nota ";¡i¡i-2,,TAB 0; 
*Continuas? (s/n)" 

INPUT z$: IF z$<>"s" AND z$<>"n" THEN GO TO 3118 
IF z$="s" THEN GO TO 3838 

GO TO 3088 

PRINT ,,* Verificar la cancion”,,,"Nombre de la cancion” 
INPUT z$: IF LEN z$>10 THEN 

PRINT "Nombre demasiado largo": GO TO 3518 
VERIFY z$ DATA bC> 

PRINT ,,z$;" Verificado" 


GO TO 3688 

PRINT ,,"Programa detenido" 

sTOP 

LPRINT ,," Notas de la cancion",,, 

* Nota no. Duracion Tono" 

FOR ¡=3 TO end 

LPRINT " "s¡i-2¡TAB 15;nbxbCi,1>¡TAB 27;bC¡,2)-k 
NEXT i 

G0 TO 389 
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7. REPRESENTACIÓN DE DATOS 


He escrito este programa, así como los dos siguientes (REGRESION 

E HISTOGRAMA) para demostrar que el ZX SPECTRUM puede ser 
utilizado también para aplicaciones serias len este caso ANALISIS 

Y DATOS) en igual medida como lo puede ser para tareas frivolas, 
normalmente asociadas con un ordenador casero. Los 3 programas se 

han diseñado de la forma más similar posible y utilizan la misma estructura 
de variables; de esta manera los datos introducidos en uno de los programas 
pueden ser GRABADOS en cinta y posteriormente CARGADOS en 

otra distinta. Tomados en su conjunto los 3 programas forman el núcleo 

de un "PAQUETE" para el análisis estadístico de datos. 


La primera etapa del análisis es "dibujar los datos" de una forma tal 
que resulte adecuada al objetivo deseado y proporcione además una 
impresión visual de su dispersión. La inspección visual es el método 
más fácil y directo de comprobación de datos y detección de valores 
erróneos, tanto por medición incorrecta o por error en la introducción 
de datos en el computador. 


En este programa la entrada de datos se puede realizar mediante teclado 
o mediante programas de datos en cinta, y la salida de datos numéricos 
puede hacerse por pantalla o por impresora, pudiendo además dibujar 

los datos, rectificar los valores erróneos y grabarlos en cassette. 


UN BOSQUEJO DEL PROGRAMA 


Cuando se ejecuta, el programa ofrece al usuario la posibilidad de 

optar entre cargar los datos de cinta o mediante teclado. En este último 
caso el usuario debe introducir también el número de puntos que han 

de ser dibujados (n). El programa utiliza la cadena numérica x (2, n + 1) 
para almacenar los datos, introduciendo el valor de (n) en x (l, 1). 

Una vez hecho esto, el usuario debe introducir ordenadamente n pares 
de valores x e y. 


Cuando los datos ya se han introducido (o se ha completado la carga 
de cinta) aparece el menú de opciones en la pantalla (línea 1000) tal 
como se ilustra en la Figura FDI y, una vez elegida una opción salta 

a la subrutina seleccionada por el usuario (línea 1050). Sólo la subrutina 
para representación de datos requiere una explicación detallada, siendo 
autoexplicativos los demás conceptos. 
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Representacion de datos 


MENU! 
Revisar datos R 
Listar datos L 
Corregir un valor tc 
Imprimir puntos P 
Grabar datos Ss 
Verificar datos Ú 
Detener programa H 


FIGURA FDI. El menú de opciones de "representación de datos" 


El computador dibuja los valores de x e y tanto minimos como máximos, 
e indica al usuario que puede introducir los valores minimos y máximos 
de ambas variables, las cuales se utilizarán para dibujar cada eje. Esto 
da al usuario la oportunidad de dibujar sólo la parte de los datos que 

él desea. También puede utilizar si desea números "redondos" para 

los extremos del dibujo. 
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El programa dibuja los datos tal como se ilustran en la Figura FD2, 
omitiendo los valores fuera del rango elegido. El número de puntos 
no dibujados aparece en la parte inferior izquierda del diagrama. Los 
ejes coordenados presentan 5 valores cada uno (lo que proporciona 

4 intervalos). Es necesario que cada uno de estos valores se trunquen 
a sólo 4 caracteres (en razón del espacio disponible y la claridad). 
Como el programa ajusta la posición de impresión de los valores del 
eje x por la derecha es necesario tener cuidado de que las cifras no 
pasen al renglón siguiente, debido a lo cual se truncan. 


1.8 Estatura Y Edad 


a 
(a) 3 7? 11 15 19 


FIGURA FD2. Una representación de la estatura-edad de 30 escolares 


El ejemplo que se muestra en la Figura FD2 se refiere a la estatura 
de 30 escolares (representada en ordenadas, eje y) puesta en relación 
con su edad (representado en abcisas, eje x). Los datos se han listado 
en la Tabla TD2. 


La representación gráfica de la "nube de puntos" muestra un incremento 
uniforme de peso a medida que aumenta la edad del escolar, con tendencia 
a una mayor dispersion de valores conforme aumenta dicha edad. 


TABLA TDI. Los datos. La columna 1 es sólo un índice para la identificación 
numérica de cada escolar. La columna 2 es su edad (redondeada, en 

años) y la columna 3 es la estatura (en centímetros, expresada en metros) 

de cada uno de ellos. 
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Indice X Ye 

1 F 1,05 
Z 12 1.39 
3 E 1.14 
4 14 1.16 
5 11 1.13 
á 3 4,288 
P 13 1,56 
8 16 1,49 
> á 1.47 
14 12 ¿ZO 
11 lá 1.41 
12 17 1.23 
13 13 1.94 
14 3 1,44 
15 á a.?82 
16 15 1.31 
17 ó 1,09 
18 lá 1.449 
17 al a.7e 
ZO E Li 12 
Zl 13 1.68 
22 5 4.38 
23 8 4,727 
24 18 1.549 
25 11 1.27 
2 18 1.41 
27? 11 1.236 
28 12 1.35 
29 17 1.43 
234 18 1.72 


E _— € »———————— 


7. REPRESENTACION DE DATOS 


PROGRAMA PDI. REPRESENTACION DE DATOS 


0 LET t=24 
Q PRINT ,,TAB 5;"Representacion de Datos”, 
"Vas a introducir los datos desdeel cassette o de=zde el 
teclado (C o T)?" 
518 INPUT z$ 
520 IF CODE z$>96 THEN LET z$=CHR$ (CODE z%-32)> 
530 IF z$<>"T" AND z$<>"C" THEN BEEP 1,12: GO TO 518 
540 GO TO 558+200x(z$="T"> 
558 PRINT ,,"Introduce el nombre del programa" 
5608 INPUT z$: IF LEN z$>10 THEN BEEP 1,12: GOD TO 5408 
5708 PRINT AT 21,08; FLASH 1;"Cargando el programa" 
580 LOAD z$ DATA x(> 
590 PRINT AT 19,0;z$;" bien cargado” 
608 LET n=x(1,1) 
618 GO TO 11088 
750 PRINT ,,"Introduce el no. de puntos a almacenar 
768 INPUT n: IF n<1í THEN  BEEP 1,12: GO TQ 74M 
770 DIM x(2,n+1> 
780 PRINT "Introduce ordenadamente los valores para X e Y",,, 
"Indice";¡TAB 14;"X";¡TAB 26;"Y" 
798 FOR ¡=2 TO n+1 
795 PRINT ¡-1;TAB 14; 
8288 INPUT x(1,i>: PRINT x(1,i)>;TAB 26; 
819 INPUT x(2,1>: PRINT x(2,i)>, 
820 NEXT ¡ 
830 LET x(1,1>=n 
1088 CLS 
10109 PRINT TAB 0;¡"Representacion de datos" 
1420 PRINT ,,,,TAB 14;"MENU" 
10308 PRINT ,,"Revisar datos";¡TAB t;¡"R","Listar datos";¡TAB t¡"L", 
"Corregir un valor";¡TAB t;"C","Imprimir puntos";¡TAB t;"P", 
"Grabar datos";¡TAB t;"S","Verificar datos"¡TAB t;¡"U", 
"Detener programa";TAB t;"H" 
1448 INPUT z$: IF CODE 2z$>?%6 THEN LET z$=CHR$ (CODE 2z$-32) 
1458 GO TO 1100+4808x*(z$="R")+908x*(z$="L">)+1400x(7$="C")+1900+ 
(z$="P")+23900*(2$="S")+4900x(Z="U "+4 P00rZE= "HO 
1100 PRINT ,,"Pulsa tecla para volver al menu" 
11109 PAUSE 8 
1128 GO TO 10608 
1500 PRINT ,,TAB 18;"Revisar datos",,,"Indice";¡TAB 14;"Xx":; 
TAB 26;"Y" 
1518 FOR ¡=2 TO n+1 
1528 PRINT ¡-1;TAB 14;x(1,¡i>;¡TAB 26;x(2,i)> 
1538 NEXT i 
1548 GO TO 11088 
2000 PRINT ,,TAB 11;"Listar datos",,, 
2018 LPRINT ,,"Indice"¡TAB 14;"X";TAB 26;"Y" 
2028 FOR ¡i=2 TO n+1 
20308 LPRINT ¡-1;¡TAB 14;x(1,i>;TAB 26;x(2,i> 
2048 NEXT ¡ 
2058 GO TO 1108 
2500 PRINT ,,TAB 108;"Corregir datos" 
2518 PRINT ,,"Introduce el indice del valor a cambiar” 
2529 INPUT a: IF a<1 OR a»n THEN BEEP 1,12: GO TO 2528 
2530 PRINT ,,"Los valores actuales son :"¡TAB 8;x(1,a+1); 
TAB 208;x(2,a+1) 
2548 PRINT ,,"Introduce ordenadamente los 
nuevos valores para X e Y" 
2558 INPUT x(1,a+1>,x(2,a+1> 
2568 GO TO 1108 
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PRINT ,,TAB 11;"Impresion de datos" 
LET xn=x(1,2) 

LET xx=x(1,2) 

LET yn=x(2,2) 

LET yx=x(2,2) 

FOR ¡i=2 TO n+1 

IF xn>x(1,i) THEN LET xn=x(1,i) 

IF xx(x(1,1) THEN LET xx=x(1,1) 

IF yn>x(2,1> THEN  LET yn=x(2,i) 

IF yx(x(2,1) THEN LET yx=x(2,i>) 


NEXT ¡ 

PRINT ,,"Menor valor de x = ",xn 

PRINT ,,"Mayor valor de x = ",xx 

PRINT ,,"Menor valor de y = ",yn 

PRINT ,,"Mayor valor de y = ",yx 

PRINT ,,"Introducir X min,X max,Y min,Ymax, para imprimir 


PRINT "X minima 
PRINT "X maxima 
PRINT "Y minima 
PRINT "Y maxima 


",: INPUT xn: PRINT xn 
y: INPUT xx: PRINT xx 
,:+ INPUT yn: PRINT yn 
. 


INPUT yx: PRINT yx 


PRINT ,,"Inmtroduce el titulo ” 

INPUT t$ 

IF t$="" THEN GO TO 34008 

PRINT ,,"Linea y columna donde se va a imprimir el titulo” 
INPUT t1l,tc 

IF t1<8 OR t1>21 OR tc<8 OR tc>31 THEN BEEP 1,12: 60 TO 3340 
PRINT ,,"Quieres una copia impresa (S o N>>" 


INPUT c$: LET c$=CHR$ (CODE c$-32*(CODE c$>96)>> 
IF c$<>"S" AND c$<>"N" THEN BEEP 1,12: GO TO 3410 
CLS 

LET x=35: LET y=11 

DRAW  INVERSE 1; OVER 1;x,y 

FOR ¡=1 TO 4 

DRAW 8,41 

DRAW -3,8 

DRAW 3,4 

NEXT ¡ 

DRAW 4,-164 

DRAW - 
DRAYW 3 
DRAW - 
DRAW 3 
FOR ¡= 
DRÁAW 5 
DRAYW 8 
DRAW 8 
NEXT i 
DRAW -228,08 


FOR ¡i=xn TO 1.B81*xx STEP (xx-xn>/4 
LET z$=STRS$ ¡ 

IF LEN z$>4 THEN LET z$=z$( TO 4) 
IF a=31 THEN LET a=32-LEN z$ 
PRINT AT 21,a;z% 

LET a=a+ó6+(a>9) 

NEXT ¡ 

LET a=20 

FOR ¡i=ym TO 1.B1x*yx STEP (yx-yn>/4 
LET z$=STRS ¡+" » 

PRINT AT a,B;z$( TO 4> 

LET a=a-5 

NEXT i 
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4508 LET o=08 
4510 FOR ¡=2 TO m+1 
4528 IF x(1,i><xnm OR x(1,1>>xx OR x(2,i><yn OR x(2,1>»+vx THEN 
LET o=o0+1: GO TO 4408 
4538 LET x=35+2208*(x(1,i1)-xn>/(xx-xn) 
45408 LET y=11+1649*(x(2,1>-yn>/(yx-yn)> 
45358 PLOT x,y» 
446008 NEXT ¡ 
46109 PRINT AT 21,8j0 
4780 IF t$="" THEN GO TO 480808 
4710 PRINT AT tl,tc;ts$ 
4808 IF c$="S" THEN COPY 
4998 PAUSE 0 
4918 GO TO 1688 
5908 PRINT ,,TAB 11;"Grabar datos",,, 
"Introduce nombre del programa" 
5018 INPUT 28: IF LEN z$>108 THEN BEEP 1,12: GO TO 56/14 
5028 PRINT AT 21,0; FLASH 1;"Grabando" 
5038 SAVE z$ DATA x(> 
5048 PRINT AT 21,0;z$;" bien grabado" 
5058 GO TO 1189 
55088 PRINT ,,TAB 108;"Verificar datos",,, 
*Intrduce nombre del programa" 
5518 INPUT z$: IF LEN z$>18 THEN BEEP 1,12: GO TO 5510 
5528 PRINT AT 21,0; FLASH 1;"Verificando" 
5530 VERIFY z$ DATA x() 
5540 PRINT AT 19,0;z$;" verificado" 
5558 GO TO 1100 
$008 PRINT ,,"programa detenido" 
6018 STOP 
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3. REGRESION 


Este es el segundo de los programas de análisis estadístico de datos, 
siendo los otros dos "REPRESENTACION DE DATOS" (programa anterior) 
e "HISTOGRAMA" (programa siguiente). El programa ajusta una recta 

a las parejas de valores x e y utilizando la técnica matemática de 

los mínimos CUADRADOS, obteniendo los coeficientes de la recta 
ajustada, los errores estimados de dichos coeficientes y el error estimado 
de la recta ajustada. También calcula los valores ajustados, es decir: 

los valores de y obtenidos por sustitución de los valores dados de x 

en la ecuación de la recta ajustada, y los residuos las diferencias entre 
los valores observados de la variable y los valores ajustados). Tanto 

los valores ajustados como los residuos pueden ser grabados en cinta 

en el mismo formato de los datos originales, de tal forma que puedan 

ser analizados utilizando los progranas "REPRESENTACION DE DATOS" 
e "HISTOGRAMA". 


Una vez ejecutado el programa se pregunta al usuario si los datos 

van a cargarse de cassette o a introducirse por teclado. Después aparece 
en pantalla el menú de opciones que se muestra en la Figura FRI. 

Las opciones son las mismas que en el programa anterior excepto la 
opción "REGRESION LINEAL" (CALCULAR LA REGRESION). Así 

el usuario puede visualizar los datos en pantalla o por impresora, puede 
corregir los valores erróneos y GRABAR y VERIFICAR los datos. 


REGRESION 
Menu 
Revisar datos R 
Listar datos E 
Corregir un valor Cc 
Calcular la regresion F 
Grabar datos Ss 
Verificar los datos Ú 
Detener el programa H 


FIGURA FRI. El MENU de opciones de REGRESION 


Si el usuario selecciona la (opción "REGRESION LINEAL" el programa 
calcula a) media de los valores de y (yb). b) la suma de los valores 

de x (sxx) y de y (syy) elevados ambos al cuadrado y c) la suma de 
los productos de las variables x e y (sxy). La forma más simple de 
expresar las ecuaciones para obtener los conceptos anteriores es: 
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Sau = 2 — xb? = XA —xb) * (xi — xb) 


A A 


i=0 


Sy 03 » (xi — xb) *  (yi — yb) 


izo? 


donde n es el número de parejas de valores del ejemplo y E significa 
"SUMA DE VALORES DE...". 


Como puede notarse, los valores de sxx, syy y sxy sólo pueden determinarse 
después de calcular xb e yb. Asimismo, para aplicar estas ecuaciones 

tal y como las hemos expresado antes del programa tendría que realizar 

2 pasadas sobre los datos de entrada. Durante la primera pasada obtendriíamos 
la suma de los valores de x y de y, con lo cual, al final de la pasada 

los dividiríamos por n y obtendriíamos los valores de xb e yb. Sustituiriíamos 
estos valores con las ecuaciones sxx, syy y sxy, los cuales podrían 

ser ya calculados en una segunda pasada. 


El realizar estas dos pasadas es un proceso que lleva tiempo de ordenador, 
por lo que el programa utiliza un método por el cual se calculan los 

5 conceptos en una sola pasada. La nueva forma de las ecuaciones 

se puede observar entre las líneas 3060 - 3100. 


El programa utiliza estos 5 conceptos para calcular la ecuación de 

la recta de regresión (líneas 3150 - 3450). Un ejemplo de la salida 

de resultados se muestra en la Figura FR2. Los resultados se generan 
utilizando los mismos datos de entrada utilizados en "REPRESENTACION 
DE DATOS", estando determinada la estatura en metros (con 2 decimales) 
y la edad en años, para los 30 escolares analizados. 


Term.Ind. Pendiente 


Coef 0.72059301 ¿150333957 
Err 049844433 .0044082279 
T 14.45684 _11.418184 


52 


3. REGRESION 


Recta Residuo 
DF 1 28 
ss 1.6234715 B,3486652 
MSS 1.6234715 ¿012452329 
F 138.37493 


FIGURA FR2. Un ejemplo de la salida del programa REGRESION 


La Figura FR2 muestra que la ecuación de la recta de regresión que 
enlaza la estatura con la edad es: 


ESTATURA = 0,72 + 0,05 * EDAD 


Los errores en el término independiente y en la pendiente con 0.05 

y 0.0044 respectivamente y el estadistico T (STUDENT) son indicativos 
de que ambos valores son significativamente distintos de cero. La mitad 
inferior de la Figura FR2 es una tabla de Análisis de Variancia. El 
significado de las abreviaturas es el siguiente: 


DF - GRADOS DE LIBERTAD 

SS - SUMA DE CUADRADOS 

MSS - MEDIA DE LA SUMA DE CUADRADOS 
F -  STADISTICO F DE SNEDECOR 


El valor de F obtenido es indicativo de que existe una fuerte relación 
entre la estatura y la edad. 


PROGRAMA PRI. REGRESION 


1 GO SUB 768808 

0 LET t=24 

0 PRINT ,,TAB 11;"Regresion",,,"Los datos van a ser 
introducidospor: Teclado o Cassette? (T/C>" 

519 INPUT z$ 

520 IF CODE z$>96 THEN LET z$=CHR$ (CODE 2z$-32) 

530 IF z$<>"T" AND z$<>"C" THEN BEEP 1,12: GO TO 518 

548 GO TO 558+200*(z$="T") 

5509 PRINT ,,*"Introduce el nombre del archivo del cassette" 

560 INPUT z$: IF LEN z$>18 THEN BEEP 1,12: GO TO 548 


Nh 
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5709 PRINT AT 21,08; FLASH 1;"REALIZANDO CARGA DE LOS DATOS" 
588 LOAD z$ DATA x(> 
590 PRINT AT 19,8;z$;" CARGA CORRECTA ” 
608 LET n=x(1,1> 
618 GO TO 1108 
750 PRINT ,,"Introduce el numero de pares de datos" 
769 INPUT n: IF n<1 THEN BEEP 1,12: GO TO 748 
770 DIM x(2,n+1) 
789 PRINT "Introduce los valores de x e y de cada par de datos 
por orden",,,"INDICE";TAB 14;"X";¡TAB 26;"Y" 
799 FOR ¡i=2 TO n+1 
795 PRINT ¡-1;¡TAB 149; 
8989 INPUT x(1,i>: PRINT x(1,¡i>;¡TAB 26; 
819 INPUT x(2,i):1 PRINT x(2,i), 
820 NEXT ¡ 
8309 LET x(1,1>=n 
10008 CLS 
1018 PRINT TAB 11;”"REGRESION* 
1020 PRINT ,,,,TAB 14;"Menu" 
10838 PRINT ,,"Revisar datos";¡TAB t;"R","Listar datos";¡TAB t;¡"L", 
"Corregir un valor";¡TAB t;"C","Calcular la regresion"; 
TAB t;"F","Grabar datos"¡TAB t;"S","Verificar los datos"; 
TAB t;¡"V","Detener el programa";¡TAB t;"H" 
1040 INPUT z$1 IF CODE z$>96 THEN LET z$=CHR$ (CODE z$-32)> 
108509 GO TO 1100+4900*(z7$="R")+900*(z7$="L")+1480*(2$="C")+1900* 
(7$="F")+3900*(z7$="S")+4498x(z7$="U")+4980x*(z2$="H") 
1109 PRINT ,,"Pulsa tecla para volver al menu" 
1118 PAUSE 0 
1128 GO TO 1008 
1508 PRINT ,,TAB 18;"REVISION DE DATOS",,,"Indice";¡TAB 14;"X"; 
TAB 26;"Y" 
1510 FOR ¡=2 TO n+1 
1520 PRINT |-1¡TAB 14;xC(1,¡i>;¡TAB 26;x(2,i) 
1538 NEXT ¡ 
1540 GO TO 1108 
2098 PRINT ,,TAB 11¡"LISTADO DE DATOS",,, 
20810 LPRINT ,,"Indice";¡TAB 14;"X";TAB 26;"Y" 
2028 FOR ¡i=2 TO n+1 
2030 LPRINT ¡-1¡TAB 14¡x(1,i>¡TAB 26;x(2,i) 
2040 NEXT ¡ 
20589 GO TO 1100 
2599 PRINT ,,TAB 8;¡"CORRECCION DE DATOS” 
2519 PRINT ,,"Introduce el ¡indice del valor a cambiar" 
2520 INPUT a: IF a<i OR a»n THEN BEEP 1,12: GO TO 2528 
2538 PRINT ,,*"Los valores son:"¡TAB 8;x(1,a+t1);TAB 28;x(2,a+1) 
23548 PRINT ,,"Introduce los nuevos valores de X e Y por orden" 
2550 INPUT x(1,a+t1)>,x(2,a+1) 
2560 GO TO 1108 
3008 PRINT ,,TAB 5;"CALCULO DE LA REGRESION" 
30189 PRINT ,,"Quieres una copia en la impreso ra? (S/N)>”" 
3020 INPUT y$: LET y$=CHR$ (CODE y$-32x*(y8>"£")): IF y$c>"S" 
AND ySC(>"N" THEN BEEP .5,24: GO TO 3028 
3030 IF y$="S" THEN CLS 
30408 LET xb=8: LET yb=0: LET sxx=08: LET syy=8: LET sxy=8 
3050 FOR ¡=1 TO n 
3060 LET sxx=sxx+(¡-1)*(x(1,1+1)-xb>*(x(1,1+1)-xb>/ i 
3070 LET syy=syy+C(¡i-1>*(x(2,1+1)-yb)*(x(2,1+1)-yb>4i 
3080 LET sxy=sxy+(i-1)*(x(1,¡1+1>-xb>*(x(2,1+1)-yb)/i 
3098 LET xb=(C(i-1>*xb+x(1,1+1)/ ¡ 
3109 LET yb=(C(i-1)*yb+x(2,1+1)>/¡ 
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NEXT i 
LET b=sxy/sxx 
LET seb=((syy*sxx-=sxy*sxy)/(n-=2))% .5/8xx 
LET a=yb-bx*xb 
LET sea=(syy/(n*(n-1))+xbx*sebxseb>)”.5 
LET si=5: LET s2=19 
PRINT ,,TAB s1;"Term.Ind.";¡TAB s2;"Pendiente" 
PRINT ,,,,*"Coef "¡a;¡TAB s2;b 
PRINT ,,"Err "¡sea¡TAB s2;seb 
, 
, 


PRINT ,,"T"¡TAB s1ja/sea¡TAB s2;b/seb 

PRINT ,5,»»»TAB s1;¡"Recta";¡TAB s2;"Residuo" 

PRINT ,,"DF"¡TAB s1;"1";¡TAB s2;n-2 

LET mss=bx*b*sxx: LET rss=syy-mss 

PRINT ,,"SS";¡TAB si¡mss;TAB s2;rss 

PRINT ,,"MSS"¡TAB sijmss¡TAB s2;rss/(n-2) 

PRINT ,,"F";¡TAB si¡mss*(n-2)/rss 

IF y$="S" THEN COPY : CLS 

PRINT ,,"Quieres grabar los residuos y los valores 
calculados? (S/N>" 

INPUT y$: LET y$=CHR$ (CODE y$-32*(y$>"0")): IF yec>"S" 
AND y$C(>"N" THEN BEEP .5,24: GO TO 3028 

IF y$="N" THEN GO TO 1108 

DIM y(2,n+1) 

FOR i¡i=1 TO n+1 

LET y(1,1>=x(1,1>: LET y(2,¡i)=x(2,1) 

NEXT ¡ 

FOR ¡=1 TO n 

LET x(2,¡i+1)=a+bx*y(1,1+1) 

LET x(1,1+1)>=y(2,¡1+1)-x(2,i+1) 

NEXT ¡ 

PRINT ,,"Introduce el nombre de DATOS" 

INPUT z$: IF LEN z$>18 THEN BEEP 1,12: GO TO 3414 
PRINT AT 21,0; FLASH 1;" REALIZANDO GRABACION 

SAVE z$ DATA x() 

PRINT AT 21,8;z$;" GRABACION CORRECTA  " 

PRINT ,,"Por favor rebobina la cinta para realizar 
la verificacion",,,"Pulsa una tecla cuando termine" 
PAUSE 0 

PRINT AT 21,8; FLASH 1;" REALIZANDO LA VERIFICACION 
VERIFY z$ DATA x(> 

PRINT AT 19,08;z$;" VERIFICACION CORRECTA  " 

FOR ¡=1 TO n+1 

LET x(1,i>=y(1,1>3 LET x(2,1>=y(2,1) 

NEXT i 

GO TO 11088 

PRINT ,,TAB 11;"GRABAR DATOS",,,"Introduce el nombre" 
INPUT z$: IF LEN z$>10 THEN BEEP 1,12: GO TO 5010 
PRINT AT 21,08; FLASH 1;"REALIZANDO LA GRABACION" 
SAVE z$ DATA x(> 

PRINT AT 21,8;z$;" GRABACION CORRECTA " 

GO TO 1180 

PRINT ,,TAB 18;"VERIFICAR DATOS",,,"Introduce el nombre" 
INPUT z$:1 IF LEN z$>10 THEN BEEP 1,12: GO TO 5514 
PRINT AT 21,8; FLASH 1;"REALIZANDO LA VERIFICACION" 
VERIFY z$ DATA x(> 

PRINT AT 19,0;z$;" VERIFICACION CORRECTA" 

GO TO 1188 
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6098 PRINT ,,"PROGRAMA DETENIDO" 
$819 STOP 


70999 PRINT ,,"Este programa realiza calculos 
siempre y cuandose introduzcan mas de tres pares de datos 
y todos los valores diferentes” 


7019 PAUSE B 
7020 RETURN 


de regresiones, 


Fe de erratas: 
La línea 3510 del programa debe ser: 


3518 INPUT y$1 LET y$=CHR$ (CODE y$-32*(y$>"£")): IF ysc>"s" 
AND yS$(>"N" THEN BEEP .5,24: GO TO 3828 
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Este es el tercero de los programas relacionados con el análisis estadistico 
de datos, siendo los otros dos "REPRESENTACION DE DATOS" y 
"REGRESION", 


Los 3 programas han sido realizados con el fin de su utilización conjunta, 
de tal forma que cada uno de ellos conforma un aspecto diferente 

del análisis de un determinado volumen de datos. Una particularidad 

es que los datos introducidos mediante teclado en el programa pueden 
ser GRABADOS en cinta y posteriormente CARGADOS en otro de 

los Programas, con lo cual se evita una innecesaria duplicación de 
esfuerzos. 


Una diferencia importante entre HISTOGRAMA y los otros dos programas 
mencionados es que sólo analiza una variable, no dos. Asimismo, cuando 
los datos son transferidos a HISTOGRAMA desde otro de los programas, 
el computador pregunta al usuario cuál de las variables desea seleccionar 
para su análisis. La variable que no es seleccionada es dejada a un 

lado y puede ser llamada en una etapa posterior mediante la opción 
apropiada del MENU principal. Cuando los datos se introducen en el 
programa mediante el teclado sólo se pueden introducir datos de una 
variable y por lo tanto no pueden servir como datos de entrada a los 
otros 2 programas del "paquete" para análisis de datos. 


Las opciones disponibles en el programa HISTOGRAMA pueden verse 
en la Figura FIl. Sólo la opción titulada "DIBUJO DEL HISTOGRAMA" 
es interesante explicarla, siendo el resto de ellas suficientemente 
autoexplicativas. 


HISTOGRAMA 
Henu 
Revisar los datos R 
Listar los datos L 
Corregir los datos c 
Dibujar el histagrama D 
Parar el programa H 


FIGURA FIl. MENU para HISTOGRAMA 


Cuando se elige la opción "DIBUJO DEL HISTOGRAMA" el programa 
dibuja los valores más pequeño y mayor de la variable y pregunta al 
usuario qué LIMITES INFERIOR Y SUPERIOR elige para el Histograma, 
así como el número de INTERVALOS (que luego darán lugar a rectángulos 
de mayor o menor longitud) elegido. Así el usuario tiene la oportunidad 
de estudiar todos o parte de los datos y puede elegir números "redondos" 
para los límites de cada intervalo del histograma. El programa redondea 
el número de intervalos al número más cercano a 4 debido a que escribe 
en el eje vertical del histograma sólo 5 valores (es decir, delimita 

4 intervalos). 
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Limite inferior Neces 


4.15 1 
-4.1 4 
-8,45 4 
a 5 
¿65 1 
.1 MN] 
4,15 2 
az 1 
-0.2 
0.1 
[es 
0.1 Sp 
a Residuos de la regresion 


FIGURA FI2. Un ejemplo de los resultados de HISTOGRAMA 


PROGRAMA PIl. HISTOGRAMA 


109 LET t=26 
5909 PRINT ,,TAB 11;"HISTOGRAMA",,,"Introduces los datos por 


teclado o los cargas del cassete (T o cr?" 
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510 
520 
530 
549 
559 
560 
570 
588 
590 
699 
$10 
628 


$38 
649 
750 
7608 
770 
780 
790 
808 
8108 
8208 
8308 
19098 
10810 
10920 
10309 


1035 
1049 
1058 


1050 


1108 
1118 
1120 
1508 
1510 
1528 
1538 
1548 
2099 
2818 
2020 
20309 
2048 
2058 
2500 
2510 
2520 
2538 
2540 
2550 
25608 
3008 
30109 
3028 
30308 


INPUT ys$ 
IF CODE yS8>96 THEN LET y$=CHR$ (CODE y$-32) 
IF y$<>"T" AND y$<>"C" THEN BEEP 1,12: GO TO 51a 


GO TO 558+208*(y$="T") 

PRINT ,,"Introduce el nombre del fichero a cargar" 
INPUT z$: IF LEN z$>10 THEN BEEP 1,12: GO TO 560 
PRINT AT 21,8; FLASH 1;"Cargando" 

LOAD z$ DATA x(> 

PRINT AT 19,0;z$;"Programa cargado" 

LET n=x(1,1) 

PRINT ,,"Que variable (X o Y>?" 

INPUT z$2 LET z8=CHR$ (CODE 2z8$-32x*(z$)>"É£")): 

IF _z8<>"X" AND z$<>"Y" THEN BEEP 1,12: GO TO 628 

LET wexj+(zH="Y")> 

GO TO 1608 

PRINT ,,"Numero de datos a introducir” 

INPUT n: 1F n<1 THEN BEEP 1,12: GO TO 740 

DIM x(2,n+1) 

PRINT "Introduce los valores en orden",,,"Indice","Valor" 
FOR ¡=2 TO n+1 

PRINT i-1,:3 INPUT x(1,1): PRINT x(1,1> 

NEXT ¡ 

LET x(1,1>=en 

LET w=1 

CLsS 

PRINT TAB 11;"HISTOGRAMA" 

PRINT ,,,TAB 14;"Menu" 

PRINT ,,"Revisar los datos";¡TAB t;"R","Listar los datos"; 
TAB t;"L”,"Corregir los datos"; 

TAB t3"C","Dibujar el histograma”; 

TAB tj3"D","Parar el programa";TAB t;"H" 

IF ys$="C" THEN PRINT "Seleccionar otra variable";¡TAB t;"S" 
INPUT z$: IF CODE z$>96 THEN LET z$=CHR$ (CODE z$-32)> 
GO TO 1060+4490*(2$="R")+940*(z7$="L">)+1448x*(2$="C")+1940x 
(7$="D")+4940*(7$="H") 

IF z$="S" AND y$="C" THEN LET w=2-(w=2): 

PRINT ,,"Otra variab. ha sido selec." 

PRINT ,,"Pulsa tecla para volver al menu" 

PAUSE 8 

GO TO 1688 

PRINT ,,TAB 18;"Revision de datos*,,,"Indice","Valor" 
FOR I=2 TO n+1 

PRINT ¡-1,x(w,1) 

NEXT i 

GO TO 1108 

PRINT ,,TAB 11;"Imprime los datos”,,, 

LPRINT ,,"Indice","Valor" 

FOR ¡=2 TO n+1 


LPRINT ¡-1,x(w, 1) 

NEXT ¡ 

G0 TO 11088 

PRINT ,,TAB 10;"Datos correctos" 

PRINT ,,"Introduce el indice del valor a alterar" 


INPUT a: IF a<1 OR a»n THEN BEEP 1,12: GO TO 2528 
PRINT ,,"Valor actual = ";x(w,a+t1)> 

PRINT ,,"Introduce el nuevo valor" 

INPUT x(w,a+1) 

GO TO 1188 

PRINT ,,TAB 11;"HISTOGRAMA" 

LET xnex(w,2) 

LET xxx (w,2) 

FOR ¡=2 TO n+1 
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3098 IF xn>x(w,i)> THEN LET xn=x(w,1) 
3058 IF xx<x(w,i)> THEN LET xx=x(w,i) 


34608 NEXT ¡ 
31008 PRINT ,,"Valor minimo = "¡xn 
3118 PRINT ,,"Valor maximo = "¡xx 


3129 PRINT ,,"Introduce el min. y el max. 
valor del histograma” 

3138 INPUT xn,xx: IF xn>»=xx THEN BEEP .5,24: GO TO 31280 

3148 PRINT ,,"Introduce numero de rectangulos requeridos 

. tun multiplo de 4>" 

31508 INPUT mb: IF mb<1 THEN LET nb=1 

316080 LET nb=4x*INT ((nb+3>)/(4)) 

3178 LET xs=(xx-xn>/nb 

3208 PRINT ,,"Da nombre al histograma" 

3210 INPUT t$ 

32208 IF t$="" THEN 650 TO 3288 

3238 PRINT ,,"Linea y columna donde debe aparecer el titulo" 

3248 INPUT tl,tc 

3258 IF t1<8 OR t1>21 OR tc<B OR tc>31 THEN 
BEEP .5,24: GO TO 32408 

3288 PRINT "Quieres imprimirlo(s/n)>" 

3290 INPUT c$: IF c$<>"s" AND c$<>"n" THEN GO TO 3280 

3308 PRINT ,,"Limite inferior","Veces",,,: IF cé="<s" THEN 
LPRINT "Limite inferior","Veces",,, 

3318 DIM b(nb»> 

332080 LET cl=8: LET ch=8 

33308 FOR j=2 TO n+1 

334080 LET ¡=INT (C(x(w,J>-xn>/xs)>+1 

3358 IF ¡<1 THEN LET cl=c1+1: GO TO 3380 

3368 IF ¡>»nb THEN LET ch=ch+1: GO TO 33808 

33708 LET b(i)>»=bC¡>+1 

3388 NEXT j 

3398 FOR ¡=1 TO nb 

3409 PRINT xn+ix*xs,b(i>: IF c$="s" THEN  LPRINT xn+1*x<,b' 0 

3410 NEXT ¡ 

34208 IF cé$="s" THEN LPRINT 

3438 IF chx*cl1=08 THEN GO TO 34648 

34490 PRINT ,,cl1;j"menor que limite inferior",ch; 
"mayor que limite superior" 

3958 IF c$="s" THEN LPRINT cl;"menor que limite interior", 
"mayor que limite superior” 

3460 PRINT ,,"Pulsa una tecla para continuar" 

3478 PAUSE 0 

3508 CLS : IF c$="s" THEN LPRINT : LPRINT 

35180 LET x=35: LET y=11 

3528 PLOT x,y 

3530 DRAW -3,9 

3548 DRAW 3,8 

3558 FOR ¡=1 TO 4 

3560 DRAW 0,41 

3578 DRAW -3,8 

3588 DRAW 3,8 

3598 NEXT ¡ 

3708 LET a=8 

37108 FOR ¡i=xm TO 1.01x*xx STEP (xx-xn)/4 

3720 LET z$=STRS ¡+" > 

3738 PRINT AT a,08;z$( TO 4) 

37480 LET a=a+5 

3758 NEXT ¡ 

4008 LET mnb=8 

4018 FOR ¡=1 TO nb 

40208 IF mnb<bCi)> THEN LET mnb=b(Ci> 
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4030 NEXT ¡ 
4058 PLOT x,175 
408608 FOR ¡=1 TO nb 

4070 LET 1=(255-x)>*bC(¡>/mnb 

404808 LET d=INT (169xi/nb>-INT (1649*C¡i-1)/nb> 
4998 DRAW 1,8 

41090 DRAW 08,-d 

4118 DRAW -1,8 

4128 NEXT i 

4200 IF t$="" THEN GO TO 42208 

4210 PRINT AT tl,tc;ts 

4220 IF cé$="s" THEN COPY 

4300 PAUSE Q 

4310 GO TO 1000 

$899 PRINT ,,"Programa detenido" 

66148 STOP 
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10. DIBUJO DE UNA FUNCION 


Este programa está diseñado para dibujar la GRAFICA de una ECUACION 
definida por el propio usuario. El usuario puede seleccionar los límites 
entre los cuales desea dibujar la ecuación y además copiar dicho dibujo 
mediante la impresora. Un ejemplo de la salida del programa se muestra 
en la Figura FTI. 


90.91 SIN (2%xXx) /x 


-.09 


1 4 NS 10 13 


FIGURA FTI. GRAFICA de SIN (2 * x)/x para 1 <x+<13 


Una vez ejecutado (RUN), el programa pregunta al usuario la ecuación 
(función de x) que desea dibujar. El programa no comprueba la sintáxis 
de la ecuación, debido a lo cual se ha de tener cuidado de no introducir 
caracteres ilegales, que los paréntesis sean pares, etcétera. El usuario 
debe teclear después de los límites minimo y máximo del valor de 

x (abcisas) que se desean. 


El programa también pregunta al usuario por el valor de las ASINTOTAS 

si es que existen. Una ASINTOTA es un valor de x para el cual la 

ecuación adopta un valor + « (más, menos INFINITO). La ecuación 

y = LOG x, por ejemplo, tiene una asintota en x = Q porque LOG Q = - »,D, 
De igual forma la ecuación y = TAN x tiene como asintotas x = 1/2, 

3*1/2, s * 1/2, etc. 


Si la ecuación elegida por el usuario tiene UNA o MAS asintotas el 
programa pregunta por la tolerancia en el cálculo, para así evitar el 
cálculo de la ecuación para valores de x que están cercanos a las asintotas 
(como pasaría en el caso en que la tolerancia fuera CERO). En otras 
palabras, si hay una asíntota en x = 1 y la tolerancia es 0,01, el programa 
no calculará el valor de la ecuación para valores de x comprendidos 

entre 0,99 y 1,01. 
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El programa calcula la ecuación para 221 valores de x dentro del intervalo 
definido, eligiendo unos límites adecuados para el dibujo de los ejes 
coordenados (x e y). Las subrutinas que determinan los valores dentro 

de cada intervalo (líneas 2200 a 2450) utilizan un bucle 5 veces consecutivas, 
una para cada intervalo. El valor máximo calculado por el bucle es 

un poco mayor que el máximo requerido debido a la necesidad de que 

los errores acumulados mediante el redondeo no hagan terminar el 

dibujo del cuarto intervalo dentro del espacio dentro del espacio del 

quinto intervalo. La siguiente subrutina ilustra lo que ocurriría en caso 


contrario: 

10 INPUT J 

20 FOR i=0 TO J STOP J/4 
30 PRINT ¡ 

40 NEXT ¡ 


Si el valor de j = 1,01 los resultados del programa serán: 
0,0.2525, 0,505, 0.7575, 1.01 


Si el valor de j = 1.02. Sin embargo, el programa escribirá: 
0,0.255, 0.51, 0.765 


En esta segunda ocasión sólo se escriben 4 resultados porque los errores 
de redondeo se han acumulado al valor de STEP, añadiéndose al valor 
de la variable ¡ en cada STEP. 


Después de dibujar la GRAFICA, el programa indica al usuario que 

ha de introducir las coordenadas para el comando PRINT AT, utilizado 
para dibujar la función (línea 2620). Si el usuario no está satisfecho 
de la posición elegida puede cambiarla simplemente escribiendo sobre 
ella mediante la utilización sucesiva de OVER 1 (linea 2650). 
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PROGRAMA PTI. DIBUJO DE UNA FUNCION 


108 PRINT TAB 6;"DIBUJO DE UNA FUNCION",,, 
"Introduce f(x) para su represen-tacion." 

119 INPUT £$: PRINT ,,"La funcion es ";f$ 

120 PRINT ,,"Introduce los valores minimo y maximo de la 
funcion para poder representarla",,,, 

1309 PRINT TAB 8;"X minima = ",: INPUT xn: PRINT xn 

140 PRINT TAB 0;"X maxima = ",: INPUT xx: PRINT xx 

150 PRINT ,,"Introduce el no. de asintotas" 

168 INPUT as: IF as<0 THEN BEEP 1,12: GO TO 148 

170 IF as=08 THEN GO TO 300 

180 DIM alas) 

199 PRINT ,,"Introduce los valores X en cada asintota por orden" 

200 FOR ¡=1 TO as 

210 INPUT ati) 

220 NEXT ¡ 

230 PRINT ,,"Introduce la tolerancia periti- da en las 
asintotas (ej .81)>"* 

240 INPUT tol: IF tol<8 THEN BEEP 1,12: GO TO 248 

300 PRINT AT 21,8; FLASH 1;"Realizando los calculos." 

310 DIM x(221>: DIM y(221> 

320 LET ¡=1 

330 FOR x=xm TO xx STEP (xx-xn>/220 

340 IF as=08 THEN GO TO 400 

350 FOR j=i TO as 

360 IF ABS (x-a(j)>><tol THEN GO TO 438 

370 NEXT j 

400 LET xCi>»=x 

41089 LET yCi>=VAL £$ 

420 LET ixmi+1 

430 NEXT x 

449 LET nx=j-1 

500 LET yn=y(1> 

5108 LET yx=y(1> 

520 FOR i=1 TO n 

530 IF yn>yCi)> THEN LET yn=yCi> 

590 IF yx<yC(i)> THEN LET yx=yCi>) 

550 NEXT ¡ 

5608 LET yn=ynx*.,99 

5708 LET yx=yx*1.,01 

588 PRINT AT 21,08,, 

10808 PRINT ,,"Quieres una copia en la impreso-ra del dibujo de la 
funcion? (S/N>" 

1018 INPUT c$: LET c$=CHR$ (CODE c$-32*(CODE c$>96)) 

1028 IF c$<>"S" AND c$<>"N" THEN BEEP 1,12: GO TO 1018 

2008 CLS 

2018 LET x=35: LET y=11 

2020 DRAW  INVERSE 1; OVER 1;x,y 

2030 FOR ¡=1 TO 4 

20408 DRAW 6,41 

2050 DRAW -3,0 

2060 DRAW 3,8 

2078 NEXT ¡ 
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2488 DRAW 

¿0790 DRA 

21244 DRAW 

2110 DRAW 

2128 DRAW 

21308 FOR 

2148 DRAW 4 

2158 DRAW 8,- 

2160 DRAW 8,3 

2170 NEXT ¡ 

21808 DRAW -228,2 

2200 LET a=4 

2218 FOR i=xm TO xx STEP (xx-xn)/4 

2220 LET z$=STR$ ¡ 

2230 IF LEN z$>4 THEN LET z$=z$( TO 4) 

2248 IF a=31 THEN LET a=32-LEN z% 

2250 PRINT AT 21,a;z$8 

22608 LET a=ató+(a>9) 

2270 NEXT ¡ 

2400 LET a=20 

24109 FOR i=yn TO 1.B1x*yx STEP C(yx-yn>/4 

2420 LET z$=STRS ¡+" " 

2430 PRINT AT a,0;z$( TO 49) 

29440 LET a=a-S 

2458 NEXT ¡ 

2504 FOR ¡=1 TO n 

2510 LET x=35+220*(x(1)-xn>/(xx-xn) 

2520 LET y=12+163*(y(¡i)-yn>/(yx-yn) 

25308 PLOT x,y» 

2548 NEXT ¡ 

2608 INPUT "Coordenadas del titulo ";x;" "¡y 

2610 IF xX0 OR x>21 OR y<B8 OR y>31 THEN BEEP 1,12: GO TO 2418 

2620 PRINT OVER 1;AT x,y»;f$8 

2630 INPUT "Es correcto? (S/N)";z$ 

2648 LET z$=CHR$ (CODE z$-32*(2$>"£">): IF z$<>"S" AND z$<>"N" 
THEN BEEP 1,12: GO TO 26308 

50 IF z$="N" THEN PRINT OVER 1;AT x,y;f$: GO TO 2404 

68 IF cé$="S" THEN COPY 


W- 


CENA] 
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11. RENUMERADOR DE LINEAS 


Un elemento diferencial del lenguaje de programación BASIC es el 

uso de números de línea para controlar el orden en el cual las líneas 
del programa son almacenadas y ejecutadas. Este elemento tiene la 
ventaja de realizar la edición de las líneas del programa de forma 
suficientemente clara para el usuario porque cada línea tiene su propio 
número como única referencia. 


Sin embargo esto tiene también algunas desventajas de distinta importancia. 
Es una pérdida de espacio, puesto que la mayoría de los números de 

las líneas son utilizadas sólo durante el desarrollo del programa, no 
durante la ejecución. Segundo: el programador debe frecuentemente 
perder tiempo cambiando números de lineas en orden a crear suficiente 
espacio como para intercalar una nueva subrutina. Una tercera desventaja 
es el hecho de que los números de las líneas son utilizadas también 

para identificar los destinos de las instrucciones GOTO y GOSUB. Asi 

se ha de tener gran cuidado al cambiar los números de las líneas y 
asegurarse de que todos los GOTO y GOSUB que llaman a dichas lineas 
se han cambiado también. 


He escrito este RENUMERADOR DE LINEAS como una subrutina para 
hacer la tarea del cambio de los números de las líneas algo más fácil, 
aunque el usuario debe renumerar los GOTO y GOSUB. El principio 

por el que opera el programa es muy simple y se resume en el programa 
PLl, muy corto, el cual ha sido concebido para renumerarse el mismo 
comenzando en 8 mediante pasos de 4 en 4. Este programa trabaja 
mediante la restauración del primer byte del área de programa (y asimismo 
la dirección del primero de los dos bytes que se utilizan para almacenar 
el número de la primera linea) desde la variable del sistema PROG, 
almacenada en las direcciones 23635 y 23636 (ver páginas 173 a 176 

del manual de Programación Basic para el ZX SPECTRUM). El nuevo 
número de línea es puesto en su lugar mediante las líneas 20 y 25. 

La línea 35 utiliza la longitud de la línea del programa que está 
almacenada en las 2 localizaciones siguientes a la línea numerada para 
calcular la dirección de la nueva línea del programa. Para prevenir 

que la nueva dirección no vaya más allá del final del área de variables 
(y asimismo no sea mayor que el valor de la variable del Sistema VARS, 
almacenada en las direcciones 23627 y 23628), el programa vuelve 

a la línea 20 para empezar la siguiente línea del programa. 


5 LET num=8 
10 LET ss=4 
15 LET add=PEEK 23635+256*PEEK 23636 
20 POKE add, num/256 
25 POKE add+1,num-256* INT (num/Z256) 
3O LET num=num+ss 
35 LET add=add+4+PEEK (add+2)+25EXPEEK (add+3) 
40 IF add ( PEEK 23627+256*PEEK 23628 THEN GO TO 20 


PROGRAMA PLI. Un programa que se renumera solo 
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Este programa es sólo un artificio, porque sólo trabaja si la linea número 
20 conserva el mismo número durante su ejecución, pues de otra manera 
el GOTO de la línea 40 se dirige a una línea errónea. Esto sirve para 
ilustrar cómo un lenguaje de programación podría tratar mejor los 

números de las lineas y los números de destino de las sentencias GOTO 

y GOSUB como cosas diferentes (los mejores lenguajes evitan la utilización 
de comandos tipo GOTO obviando de esta manera el problema). 


La SUBRUTINA completa (PL2) tiene como objetivo RENUMERAR 
una parte de un programa. Ocupa desde la linea 9000, por lo que, si 
se evita en los programas utilizar un número de línea mayor de 8999, 
puede fácilmente ser MEZCLADO (MERGE) con cualquier programa 
existente. 


Llamamos al programa mediante RUN 9000 y él entonces solicita los 
números de la primera y la última línea que han de ser renumerados 

sólo aceptará respuestas lógicas; por ejemplo; líneas con números negativos 
o con números de línea mayores de 8999 serán rechazados. El programa 
explora la memoria para encontrar los números de las líneas que han 

de ser renumeradas y calcula el incremento máximo permisible (o tamaño 
del salto) entre dos nuevos números de línea. En este punto el programa 
indica al usuario que debe seleccionar un nuevo número de línea de 
comienzo y el tamaño del intervalo y, cuidando de que ambos caigan 

entre los limites permitidos procede a la renumeración. 


Debemos poner énfasis al indicar que esta SUBRUTINA NO renumera 
los comandos GOTO y GOSUB de destino. El llevar esto a cabo podría 
ser casi imposible de escribir mediante el lenguaje BASIC. La secuencia 
de operaciones de un programa adecuado un CODIGO MAQUINA podría 
ser: 


l. Almacenar las direcciones y números de destino de todos los GOSUB 
y GOTO del programa en un área de trabajo adecuada. 


2. Renumerar cada línea por orden, comprobando el número de línea 
antiguo en el área de trabajo. 


3. Cuando se encuentra un número igual, convertir el nuevo número 
de linea a caracteres y volver a escribir los caracteres del numero 
de destino. 


4. Si los números nuevo y antiguo difieren en longitud se debe ampliar 
o reducir en consecuencia el área de programa. (Por ejemplo, si 
el número antiguo era 95 y el nuevo es 140, el área de programa 
podría ampliarse en un byte de longitud debido a que 95 tiene 
2 caracteres y 140 tiene 3). Una vez hecho esto, las direcciones 
están almacenadas en la memoria de forma correcta. 


5. Convertir el nuevo número de línea a la forma de punto flotante 
y reescribir en su forma numérica el número de destino, el cual 
está escondido en los 5 bytes (más un byte separador) acompañando 
al carácter del número. 


6. Borrar todo lo introducido en el espacio de trabajo, de tal forma 
que los numeros no se renumeren accidentalmente mas de una 
vez. 
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PROGRAMA PL2. RENUMERADOR DE LINEAS 


9848 GO SUB 9978 

908108 PRINT "Introduce la primera y ultima 
linea del bloque a renumerar" 

9928 INPUT a,b 

9038 IF a<x0 OR bX=a OR b>89992 OR a<>INT a OR b<>INT b THEN 
BEEP .2,24: GO TO 9828 

9848 GO SUB 98088 

9058 GO SUB 9970 

9060 PRINT "numero de comienzo actual= "¡num 

9070 LET snum=onum: LET sadd=add 

90488 LET a=b: LET m=n 

9898 GO SUB 9888 

91009 PRINT "Numero de final actual = "jonum 

91108 PRINT ,,"El nuevo comienzo debe ser>";¡TAB 27;snum 

9128 PRINT "El nuevo final debe ser< "¡TAB 27;num 

9130 PRINT ,,"No lineas a renumerar = "¡TAB 27;n-m 

91408 LET ss=INT (Conum-snum)>)/(n-m)) 

9150 PRINT “El incremento debe ser <= "¡TAB 27;s5ss 

9208 PRINT ,,"Introduce la nueva linea de 
comienzo y el incremento " 

9218 INPUT a,b 

92208 IF a=snum OR b<1 OR b>»ss OR a<>INT a OR b<>INT b THEN 
BEEP .2,24: GO TO 9210 

9308 PRINT ,,"nuevo comienzo = "¡TAB 27;a 

9310 PRINT "Incremento = "¡TAB 27;b 

9320 FOR ¡=1 TO n-m 

9330 POKE sadd,INT (a/256) 

9340 POKE sadd+1,a-256x* INT (a/256) 

9350 LET sadd=sadd+4+PEEK (sadd+2>+256x*PEEK (sadd+3) 

9360 LET a=a+b 

9378 NEXT i 

9389 PRINT TAB 4; FLASH 1;"Renumeracion terminada" 

9398 STOP 

9880 LET onum=8: LET oadd=8: LET n=8 

9810 LET add=PEEK 23635+256x*PEEK 23636 

9820 LET num=256x*PEEK add+PEEK (add+1> 

98308 IF num=a AND aX>b THEN RETURN 

98408 IF num»a THEN RETURN 

98508 LET onum=num: LET oadd=add 

9860 LET add=add+4+PEEK (add+2)+256x*PEEK (add+3) 

9878 LET n=n+1 

9889 GO TO 9828 

9978 CLS 

9789 PRINT TAB 9;" RENUMERADOR ",,, 

9998 RETURN 
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12. CARGA DE RUTINAS EN CODIGO MAQUINA (HEX LOADER) 


Este programa es muy utilizado para almacenar subrutinas cortas en 
CODIGO MAQUINA tal como las que se publican periódicamente en 

las revistas sobre computadores, debido a lo cual yo he incluido una 
pareja de subrutinas encadenadas como muestra. La primera rutina 
renumera un programa (excepto los números de línea de destino en 
GOSUB y GOTO) y la segunda graba los resultados y las vuelve a llamar. 
Este programa no es demasiado cómodo para desarrollar subrutinas 

en código máquina, puesto que no tiene caracteristicas sofisticadas. 

Un programa más cómodo para realizar este trabajo es el EDITOR 

EN CODIGO MAQUINA, que también se incluye en este volumen. 


El MENU de opciones que controla el programa se encuentra en la 

línea 500 y se ilustra en la Figura FHI. El usuario selecciona una opción 
del MENU, debido a lo cual el programa salta a la subrutina apropiada 
desde la linea 520. 


MENU 


DE TECLADO A MEMORIA 
SENTENCIAS REM A MEMORIA 
SALIDA EN HEXADECIMAL 
HEXADECIMAL A REM 
PARADA 


nTOZDA 


Figura FHl. El MENU de opciones de HEX LOADER 


MANEJO DE LAS DIRECCIONES DE REENTRADA ("RETURN") 


La opción "DE TECLADO A MEMORIA" permite al usuario introducir 
código de máquina en HEXADECIMAL mediante teclado. El programa 
pregunta en primer lugar, utilizando la subrutina de la línea 6000, 

por la dirección en la cual se almacena la forma "absoluta" del código. 
El usuario debe introducir una dirección que sea mayor que el RAMTOP. 


Si la dirección está bajo el RAMTOP el programa pide la confirmación 
del dato. Si la respuesta es "s" (se contesta "si'') entonces el programa 
convierte el código hexadecimal introducido posteriormente por el usuario 
en su forma numérica y lo direcciona a la memoria comenzando en 

la dirección que se introdujo en un principio. 


Es de resaltar lo que sucede cuando la respuesta es "N" (se contesta 
"NO"). El programa está en una subrutina, pero ahora no puede volver 
(RETURN) al programa principal porque el usuario no desea seguir. 

Si a continuación se hiciera GOTO 600, se podría dejar la dirección 

de retorno -RETURN- (por ejemplo: el número de la línea en la que 
debería haberse constituido el comando RETURN), en el almacenamiento 
de GOSUB. Esta situación se produce porque no hay sitio suficiente 

en el área de BASIC del ZX SPECTRUM para que una subrutina retorne 
(RETURN) a cualquiera de los 2 puntos de reentrada dependiendo de 

una decisión tomada dentro de una subrutina. 
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El programa soslaya este problema direccionando un nuevo numero 

de línea de retorno (RETURN), la 599, en el almacenamiento de GOSUB 
y ejecutando entonces el RETURN. El nuevo número de línea de retorno 
(nr) se toma como 599 porque el software del ROM incrementa el 
número. Así el programa continúa desde la línea 600. 


La forma del almacenamiento de GOSUB puede inspeccionarse utilizando 
el bucle de las líneas 9000 - 9030. Este bucle no es parte del programa 
principal y se puede omitir si se desea. Los valores que se indican 

en el listado del programa se refieren a una máquina de 48K. Para 
utilizar una de 16K se debe cambiar 65367 por 32599. 


Para ver el almacenamiento de GOSUB debemos primeramente tener 
absoluta certeza de que no existen direcciones de RETURN innecesarias 
dentro de dicho almacenamiento, para lo cual introducimos por teclado 
RETURN varias veces hasta que aparezca el mensaje: 


7. RETURN WITHOUT GOSUB, Q : 1 


Ahora se debe introducir RUN 9000 y a continuación debe aparecer 
la siguiente TABLA: 


65367 62 
65366 ? 
65365 19 
65364 3 
65363 27 
65362 118 
65361 127 
65360 88 


El valor de la dirección 65366 varía con la tarea que la máquina ha 
estado realizando desde la ejecución del programa y aparece en la 
TABLA como "?", Esta es la manera en la que el almacenamiento 
aparece cuando no existen actualmente ningún número de líneas de 
retorno (RETURN). 


Ahora introducimos una nueva linea: 
9600 GOSUB 9000 
y la llamamos mediante RUM 9600. Realizando esto situaremos la 


dirección de retorno (RETURN) 9600 en el almacenamiento de GOSUB. 
La tabla que aparecía en la línea 9000 tendrá ahora el siguiente aspecto: 


65367 62 
65366 ? 
65365 2 
65364 37 
65363 128 
65362 19 
65361 3 
65360 27 
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Se han insertado 3 bytes en la tabla. El primero contiene un "2", lo 
que indica que a continuación hay 2 números de bytes, el segundo y 
tercer bytes contienen "37" y "128" respectivamente y componen 
conjuntamente el número de la línea de RETURN (ya que 37 * 256 
+ 128 = 9600). 


Es dentro de aquellas localizaciones donde la subrutina direcciona la 


nueva línea de retorno (RETURN) requerida en los POKES de las líneas 
9500 a 9540. 
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EL RESTO DE LAS OPCIONES 


Las restantes opciones del programa son completamente autoexplicativas. 


La opción "SENTENCIAS REM A MEMORIA" almacena el código hexadecimal 
existente en una sentencia REM (constituyendo la primera linea de 

un programa) en código absoluto y en una localización especificada 

por el usuario. El listado que se adjunta muestra la subrutina RENUMERADOR 
de LINEAS almacenado de esta manera. 


La opción "SALIDA EN HEXADECIMAL" lista los códigos hexadecimales 
dentro de un intervalo de direcciones de memoria seleccionado por 
el usuario. 


La opción "HEXADECIMAL A REM" convierte el código absoluto de 

un intervalo de direcciones a hexadecimal y las introduce dentro de 
sentencias REM. Esto puede utilizarse asimismo para copiar y modificar 
subrutinas en CODIGO MAQUINA en la ROM. 


RENUMERADOR DE LINEAS 


La tabla TH] presenta una subrutina para renumerar un programa (excepto 
GOTO y GOSUB) en intervalos de 10 en 10. 


01 OA 00 LD BC; 10 

11 OA 00 LD DE; 10 

2A 53 5c LD HL, (23635) 

72 NEXTLOC LD (HL), D 

23 INC HL 

73 LD (HL), E 

23 INC HL 

D5 PUSH DE 

5E LD E, (HL) 

23 INC HL 

56 LD D, (HL) 

23 INC HL 

19 ADD HL, DE 

EA 5B 4B 5C LD DE, (23627) 

ES PUSH HL 

A7 AND A 

ED 52 SBC HL, DE 

D1 POP DE 

El POP HL 

DO RET NC 

09 ADD HL, BC 

EB EX DE, HL 

18 E7 JR, —25 NEXT LOC 
TABLA THI. Renumerador de líneas en código máquina (excepto sentencias 


GO TO y GO SUB) 
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GRABAR Y VOLVER A LLAMAR A LA PANTALLA 


La tabla TH2 muestra 2 subrutinas para grabar en cinta la totalidad 

de la salida por pantalla, incluyendo el FICHERO de atributos en 25856, 
y para copiarla de nuevo en 16384. Se ha de tener cuidado de modificar 
el RAMTOP a 25855 o menos antes de que la rutina grabada en cassette 
sea ejecutada y de asegurarse para que las propias subrutinas no sean 
almacenadas entre 25856 y 32767. 


Copia de la pantalla a 25856 Copia de 25856 a la pantalla 
210040 LD HL; 16384 210065 LD HL, 25856 
110065 LD DE, 25856 110040 LD DE, 16384 
0100 1B_ LD BC, 6912 0100 1B_ LD BC, 6912 
ED BO LD IR ED BO LD IR 

C9 RET C9 RET 


TABLA TH2. Grabado en cinta y almacenado de la pantalla incluyendo 
el archivo asignado a / desde 25856 


PROGRAMA PHI. HEX LOADER 


19 REM 61094001104002A535C72237323D55E2356231?ED5SB4BS5CESA 
7ED52D1E1D009EB18E7 
500 CLS : PRINT ,,TAB 14;"MENU",,,,,"De teclado a memoria"; 
TAB 31;"KHexad. de REM a memoria";¡TAB 31; 
"RSalida en hexadecimal (s=STOP>";¡TAB 31;"DHexad. a REM"; 
TAB 31;"HParar el programa;";¡TAB 31;"s" 


518 INPUT z$: LET z$=CHR$ (CODE Z7$-32*(2$>"£")>) 

528 GO TO 408 +400x*(z$="kK">)+999*(7$="R">)+1400*(z7$="D")+1990x 
(z$="H">+2400x*(z$="S") 

599 REM 

608 INPUT "Pulsa ""ENTER"" para continuar";z$ 

619 GO TO 3588 

1909 PRINT ,,TAB 2;"Hexad. de teclado a memoria” 

1018 GO SUB ¿48e88 

1028 PRINT ,,"Introduce hexadec. *",,, 

1938 INPUT z$: IF z$="" THEN GO TO 408 

1048 LET 1=LEN z$ 

10598 IF 1<>2x*INT (1/2) THEN GO TO 1440 

1055 LET y$=z$ 

1068 FOR ¡i=1 TO 1 

1066 LET y$(¡i>=CHR$ (CODE z$C(¡i>-32*(2$(1)>"£")) 

1070 LET z$(¡i>=CHR$ (CODE z$(i)>)-32*(2$(1)>"£")+7*(Z2$Ci)3<"A")) 

1088 IF z$(i><"7" OR z$(i>)>"F" THEN GO TO 1489 

1098 NEXT ¡ 

1109 PRINT a,y$ 

11108 FOR ¡=1 TO 1 STEP 2 

1120 POKE a,16*CODE z$(¡>+CODE z$(¡+1>-935 

1138 LET a=a+1 
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1148 NEXT i 

1159 GO TO 1830 

1409 BEEP .2,24 

1418 IF ¡=LEN z$% THEN GO TO 1440 

1428 PRINT ,,z$(1 TO ¡>; FLASH 1;"?";z$(i+1 TO LEN 2$) 

1438 GO TO 1838 

1448 PRINT ,,z$; FLASH 1;"?" 

1458 GO TO 10838 

1509 PRINT ,,TAB 4;"Hexadec. de REM a memoria” 

1510 GO SUB 40689 

1528 INPUT "Introduce num. de carac. hexad.";¡n 

1538 IF n<1 OR n<>2* INT (n/2) THEN BEEP .2,24: GO TO 1528 

1540 LET 1=5+PEEK 23635+256x*PEEK 23636 

1558 FOR ¡=1 TO l+nm-1 STEP 2 

1560 LET j=PEEK ¡: LET k=PEEK C(i+1> 

1570 LET j=j-32*(J>96)+7*(j<65)-55 

1580 LET k=k-32*(k>96)+7*(k<65)-55 

1598 IF ¡<A OR j>15S OR k<8 OR k>15 OR a>»65535 THEN GO TO 408 

1508 POKE a,1óx*j+k 

1610 LET a=a+1 

1628 NEXT i 

1438 GO TO 208 

2008 PRINT ,,TAB 4;"Salida en hexadecimal" 

2018 INPUT "Introduce direccion de comienzo para codigo "jas 
IF a<x8 OR a<>INT a OR a>»65536 THEN BEEP ,2,24: GO TO 2018 

2020 LET faz=a 

2030 IF fa-a=8x* INT ((fa-a)/8) THEN PRINT a;¡TAB 8; 

2035 LET ¡=INT C(PEEK a/16) 

2040 PRINT CHR$ C(¡+55-7x*C(¡<10)); 

2050 LET ¡=PEEK a-16x*i 

20608 PRINT CHR$ C(i¡+55-27xC1X180)>;" *"; 

2070 IF INKEY$="s" OR INKEY$="S" THEN GO TO 6088 

20808 LET a=a+1 

2098 GO TO 28308 

2208 INPUT "Introduce direccion de comienzo para codigo "ja: 
IF ac16384 OR a<>INT a THEN BEEP .2,24: GO TO 40688 

2508 PRINT ,,TAB 11;"Hexadec. a REM" 

2510 LET p=PEEK 23635+256x*PEEK 23636 

2520 LET 1=PEEK (p+2)+256x*PEEK (p+3) 

2530 IF PEEK (p+4)<>234 THEN BEEP .,2,24: 
PRINT ,,"La primera sentencia no es REM": GO TO ¿88 

2548 INPUT "Introduzca direccion comienzo para codigo "as 
IF ax0 OR a>»65536 OR a<>INT a THEN BEEP .2,24: GO TO 2548 

2550 INPUT "Introduce num, de bytes a copiar";¡n: IF n<0 THEN 
BEEP .2,24: GO TO 2558 

2568 IF n>1/2 THEN BEEP .2,24: PRINT ,,"Solo hay sitio para "; 
INT 1/2;"bytes": GO TO ¿4088 

2570 LET p=p+5 

2580 FOR ¡=a TO a+n-1 

2598 LET j=INT (PEEK ¡/16) 

2600 POKE p,J+55-7*(J<1B> 

2610 LET =PEEK ¡-16*j 

2620 POKE p+1,J+55-7x*(j<10> 

2630 LET p=p+2 

2648 NEXT ¡ 

2658 GO TO 6488 

3009 PRINT ,,"Programa detenido" 

38108 STOP 

$008 INPUT "Introduzca direccion comienzo para codigo "ja: 
IF ac16384 OR a>»65536 OR a<>INT a THEN BEEP .2,24: GO TO 40890 

60109 IF a>PEEK 23730+256x*PEEK 23731 THEN RETURN 
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6020 BEEP .2,24: INPUT "La direccion de comienzo es 
inferior al RAMTOP. Deseas con- tinuar (S/N>)?";z8 

60308 IF z$="S" OR z$="s" THEN RETURN 

6048 LET nr=599 

$058 GO TO 9508 

90809 FOR ¡=8 TO 20 

9010 PRINT £5367-¡,PEEK (65367-i) 

9928 NEXT i 

90838 STOP 

9508 LET r=PEEK 23730+256*PEEK 23731-2 

9518 IF PEEK r=2 THEN LET r=r-3: GO TO 9518 

9520 POKE r+1,nr-256x*INT (nr/256) 

9538 POKE r+2,INT (nr/256) 

9540 RETURN 
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13. DESENSAMBLADOR 


Usted probablemente ya sabe que el microprocesador Z80 que contiene 
el ZX SPECTRUM no entiende directamente palabras en BASIC como 
PRINT, IF, TAB, etc. En su lugar él sólo atiende a un lenguaje llamado 
CODIGO MAQUINA. Las instrucciones de la ROM de Sinclair, por 
ejemplo, están escritas en este código. El código máquina consiste 

en una secuencia de números enteros positivos comprendidos entre 

O y 255 (*). La función de un programa DESENSAMBLADOR es convertir 
una secuencia de estos números en una secuencia más comprensible 

de caracteres MNEMONICOS de ensamblador, que son alfanuméricos 
(un programa ENSAMBLADOR = ASSEMBLER tiene como objetivo 
complementario el convertir los MNEMONICOS en números enteros 


positivos). 


Se pueden ver algunos ejemplos de los MNEMONICOS en el Apéndice 

A del Manual de Programación Basic para el ZX SPECTRUM (desde 

la página 183). La primera columna (CODIGO), incluye todos los números 
enteros positivos desde O a 255 y la cuarta columna (ZX ENSAMBLADOR) 
relaciona un MNEMONICO para cada uno de los números enteros positivos. 
Por ejemplo, el Mnemónicos "NOP" (se pronuncia "NO OP") es la contracción 
de "NO OPERATION" y su CODIGO MAQUINA es Q, ya que / es la 
instrucción "NO HACER NADA". Es decir, el ZX80 ejecuta la instrucción 
"$" en código máquina NO HACIENDO NADA hasta que le llegue el 

turno a la siguiente instrucción. 


Otro mnemónico simple es "INC b" (código máquina 4) que da orden 

el Z30 de incrementar el registro b en una unidad. O sea, si el registro 
b contiene 210 antes de ejecutar la instrucción, contendrá 211 después 
de ejecutarla. 


El conjunto de instrucciones para el Z80 es complejo y no es el propósito 

de este libro descubrirlo tanto en forma como en estructura. Para 

ello recomendamos leer "HOW TO PROGRAM THE Z80" (cómo programar 

el Z80) de RODNEY ZAKS, editado por SYBEX (ISBN 0-89588-057-1) 

o 'Z80 y 8080 ASSEMBLY LANGUAGE PROGRAMMING" (Lenguaje 

de programación ENSAMBLADOR para Z80 y 8080) de KATHE SPRACKLEN, 
editado por HAYDEN (ISBN 0-8104-5167-0). 


El desensamblador debe interpretar correctamente todas las complejidades 
del conjunto de instrucciones del Z80. Pero existen cerca de 640 instrucciones 
diferentes para el 230. Algunos como "NOP" e "INC b" se especifican 

tan sólo por un número natural, pero otros como "Id b, N" (código 

máquina 6) requieren 2, 3 o aún 4 números naturales. "ld b, N" significa 
acumular en el registro b la variable N definida en la siguiente instrucción. 
Asi, la pareja de código máquina 6,15 hace que el Z80 almacene en 

el registro b el valor 15. Las variables se denominan mediante letras 
mayúsculas en la columna 42 del Apéndice A del Manual de Programación 
Basic para el ZX SPECTRUM. 


(*) Números naturales. 
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La otra forma en que las instrucciones requieren más de un número 
natural para ser completamente especificados es a través del uso de 
4 números (203, 221, 237 y 253; CB, DD, ED y FD en hexadecimal) 
para formar un código ampliado. Los códigos ampliados para CD y 
ED se relacionan en las columnas 5 y 6 del Apéndice A. Así el par 
de números 237, 00 (CD 00 en hexadecimal) es el código para "ric b" 
que significa "rotación a la izquierda del registro b afectando al 
indicador (*)". 


En otras palabras, cada uno de los 8 bits del registro b se trasladan 
un lugar a la izquierda dentro del byte, siendo trasladado el último 
de la izquierda al primer lugar de la derecha y al indicador (STACK 
POINTER). 


Los códigos extendidos DD y FD no se relacionan en el Apéndice A 
debido a que son idénticos a los otros códigos con la única excepción 
de que los registros de 16 bits ix e iy son sustituidos por nl. 


Por ejemplo, el código máquina 35 ("inc hl") ordena al 280 que aumente 
en uno.los 16 bits del registro hl. De igual manera, el par de instrucciones 
en código máquina 221, 35 (DD, 23 en hexadecimal) significa "inc ix" 
aumentar el registro ix, y el par 253, 35 (FD, 23 en hexadecimal) significa 
"inc iy" -aumentar el registro iy. 


DESCRIPCION DEL PROGRAMA 


La manera más evidente de escribir un programa DESENSAMBLADOR 
es construir una tabla "de búsqueda" conteniendo cada uno de los 640 
MNEMONICOS "oficiales" (existen otras combinaciones más de códigos 
"NO oficiales", que se utilizan también). Sin embargo, un cálculo rápido 
nos muestra que no hay suficiente capacidad en un SPECTRUM CON 
16K para almacenar cómodamente esta tabla y ADEMAS otro programa 
cualquiera. Suponiendo, por ejemplo, que cada mnemónico consta de 

6 caracteres y un indicador numérico, que ocupa 5 bytes, la tabla completa 
(y el indicador) ocuparía tan sólo ella un mínimo de (6 + 5) x 640 = 7040 
bytes. Si fuera posible utilizar indicadores enteros (ocupando 2 bytes 
cada uno), en lugar de la forma standard de SINCLAIR que ocupa 5 
bytes, este espacio podría reducirse a (6 + 2) x 640 = 5120 bytes. 


Un método más elegante y que yo he utilizado aquí es sacar partido 

de la simetría entre las partes del "Conjunto de Instrucciones" es 
construir algunos MNEMONICOS tomando como base sus componentes. 
Los códigos máquina entre 64 y 191 inclusive, por ejemplo, se refieren 
todos ellos a b, c, d, e, h, 1 (hl) y a registros en una secuencia repetida. 
Los números 64 a 127 agrupan todos ellos instrucciones "Id" y entre 

del 128 al 191 se pueden agrupar de 8 en 8 (add a, adc a, sub. etc.). 


De forma similar los 2 códigos de byte que comienzan con el 203 (CB 

en hexadecimal) se relacionan en la columna 5 del Apéndice A y consisten 
en grupos de 8 en 8 acompañados por 3 grupos de 64. También muestran 
la misma secuencia repetitiva de referencias a los registros b, C, d, 

e, h, 1, (hi) y a. 


(*) NOTA DEL TRADUCTOR: Se traduce CARRY FLAG por INDICADOR (ver FLAGS en 
capítulo 25 del Manual de Programación Basic para el ZX SPECTRUM). 
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La Tabla TAI muestra cómo analiza el desensamblador el código máquina. 


Se utiliza un 'indicador w5 para distinguir entre los registros hl, ¡ix 

e iy, y se cambia de forma adecuada si se encuentran los caracteres 
decimales 221 ó 225 (DD y FD en hexadecimal). Si se encuentra un 
código ampliado tipo ED (decimal 237) los mnemónicos se pueden buscar 
entre los caracteres de la cadena y5. Si se encuentra un código ampliado 
tipo CB (decimal 203) se construye el mnemónico entero a partir de 

sus componentes. Así una instrucción de un solo byte, o bien es leida 

de la cadena literal z5 o bien se construye a partir de sus componentes. 


EL DESENSAMBLADOR EN DETALLE 


El programa consiste en 2 secciones distintas. La primera sección (líneas 
10 a 1340) almacena las Tablas de búsqueda (y5 y z5) y sus indicadores 
p y q. La segunda sección (líneas 3000 a 9010) es el DESENSAMBLADOR 
propiamente dicho. En su forma completa el programa ocupa casi las 
16K de memoria y para comprimirlo es necesario cambiar el RAMTOP 
al más alto valor posible, lo cual se realiza introduciendo CLEAR 52767. 


De hecho, una vez que los datos son almacenados mediante la ejecución 
del programa (RUN), las lineas 10 a 1340 pueden ser borradas en su 
totalidad teniendo en cuenta que las instrucciones RUN y CLEAR no 

van a ser utilizadas en adelante. El mejor método es ejecutar el programa 
entero mediante RUN, grabar una copia en cassette mediante SAVE, 
borrar las líneas 10 a 1340 y grabar una segunda copia mediante: 


SAVE "DESENSAMB" LINE 3000 


CODIGO MAQUINA 


PROCEDIMIENTO 


(DECIMAL) (HEXADECIMAL) 
0 a 63 DO a 3F Primeros 64 elementos de z$ 
64 a 191 40d a BF Construidos en las líneas 3400 a 3510 
192 a 255 CO a FF Ultimos 64 elementos de z5$ 
203,0 a 255 CB, 00 a FF Construidos en las líneas 4500 a 4810 
237,64 a 123 ED, 40d a 7B Primeros 60 elementos de y$ 
237,160 a 187 ED, AQ a BB Ultimos 28 elementos de y5 
221,9 a 249 DD, D9 a F9 Ajuste de y$ en las líneas 4100 a 4150 
253,9 a 249 FD, D9 a F9 Ajuste de z5 en las líneas 4100 a 4150 
221,206,6 a 254 DD, C9, 06 a FE Construido en las líneas 3400 a 3510 y ajustado 


253,203,6 a 254 


FD, C9, D6 a FE 


mediante la subrutina 8000 
Construido en las líneas 3400 a 3510 y ajustado 
mediante la subrutina 8000 


TABLA TAI. El procedimiento utilizado por el DESENSAMBLADOR 


para analizar los diversos códigos máquina 
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De esta forma, la copia original completa estará disponible en forma 
de fichero. Cuando se graba la segunda copia el programa comenzara 
automáticamente en la línea 3000 sin borrar las variables. 


Los MNEMONICOS varían en longitud y asi cada una de las tablas 

y5 y z5 requiere un indicador (q y p) para señalar el fin de cada mnemónico 
de forma ordenada. La primera de las secciones almacena los datos 

en los comandos DATA de las dos tablas. Por supuesto que no importa 

que se utilicen 11 sentencias DATA, como yo lo he hecho, o más, o 

menos, siempre que se mantenga Su secuencia correcta. 


La técnica utilizada para avanzar a través de las sentencias DATA 

en la segunda sección del programa (como por ejemplo entre las líneas 
3400 a 3510) es de un valor notable. Esta es la parte que construye 

las instrucciones de la forma Id e, b y lo realiza leyendo (READ) el 
concepto correcto en las sentencias DATA en la línea 3400, almacenando 
el resultado y luego leyendo (READ) la misma sentencia una segunda 

vez. El número de conceptos leído se determina mediante los contadores 
situados respectivamente en las líneas 3440 y 3480, los cuales se calculan 
por el contenido del byte que está analizando. 


La Tabla TA2 es un ejemplo de la salida del programa. Cada una de 
las direcciones y mnemónicos aparece ordenadamente. 
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1590 or e 
1501 yr onz,-54 


1503 ld a,h 
1504 cp 1 
1506 ret 


1597 call 1511 
1510 ret nc 
1511 ld a,z22 
1513 dec a 
1514 Jr onz,-3 
1516 and a 
1517 inc b 
1518 ret z 


1519? ld a,127 
1521 in asc2594) 
1523 rra 


1524 ret nc 
1525 xor c 
1526 and 32 
1528 yr z,-13 
1534 ld a,c 
1531 cpl 


TABLA TA2. Un ejemplo de la salida del programa DESENSAMBLADOR 


PROGRAMA PAI. DESENSAMBLADOR 
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502 


512 


521 


522 


530 


1908 
1018 
1928 
1030 
1040 
1058 
1060 
1100 
1110 
1128 
1138 
1140 


PROGRAMA PAI. DESENSAMBLADOR 


REM Esta seccion almacena los codigos de operacion en 
columnas 4 y 6 del Apendice A del Manual de Programacion 
Basic del 2X SPECTRUM 

DIM p(128> 

DIM z$(809) 

DIM q(88)>) 

DIM y$(392) 

DATA "1d bc,NN","ld (bc>,a”","inc bc","inc b","dec b”, 

"1d b,N","rica","ex af,af","add hl,bc","ld a,(bc>”,"dec bc" 
DATA "inc c*,"dec c","1d c,N","rrca”,"dinz DIS","Ild de,NN", 
"1d (de)>,a","inc de","inc d*,"dec d*,"ld d,N","rla", "jr DIS", 
"add hl,de","ld a,(de)","dec de","inc e","dec e","ld e,N", 
"rra","jr nz,DIS","1d h1,NN“,"1d (NN),h1","inc h1","inc h", 
"dec h" 

DATA "1d h,N*,"daa","jr z,DIS","add hl,h1","1d h1,(NND)", 
"dec hl","inc 1*,"dec 1*,"1d 1,N",*cp1”","jr nc,DIS", 
"1d sp,NN","ld (NN)>,a"," inc sp","inc (h1>","dec C(h1>", 
"1d (h1),N",*scf","jr c,DIS","add hl,sp","l1d a,(NN)" 
DATA "dec sp","inc a","dec a","ld a,N","ccf” 

DATA "ret nz*","pop bc","jp nz,NN","jp NN","call nz,NN”: 
"push bc","add a,N","rst 0%,"ret z","ret","jp z,NN","", 
"call z,NN","call NN","adc a,N","rst 8","ret nc","pop de”, 
"jp nc,NN","out (N>,a","cal! nc,NN","push de” 

DATA "sub N","rst 16%,"ret c","exx","jp c,NN","in a,(N)", 
"call c¿NN*,"","sbc a,N","rst 24","ret po","pop hl", 

"jp po,NN","ex (sp),hl","call po,NN","push hl","and N", 

"rest 32","ret pe","Jp (hl>" 

DATA "jp pe,NN","ex de,hl","call pe,NN","","xor N","rst 489", 
"ret p","pop af","Jp p,NN","di","call p,NN","push af","or N", 
"rst 48",*"ret m","ld sp,hl","jp m,NN","ei","call m,NN","", 
"cp N","rst 56" 

DATA "out (c)>,b","sbc hl,bc","1d (NN>,bc","neg","retn", 

"im 0*,"ld ¡,a","in c,(c)","out (c>,c","adc hl,bc", 

"1d bc,(NN)*,**,"reti","*,"ld ra", in d,(c)","out (c)>,d”, 
“sbc hl,de","l1d (NN>,de" 

DATA "",*","im 1","ld a,i","in e,tc)","out (c)>,e", 

"adc hl,de","ld de,(NN>*,"*,**,% im 2","l1d a,r","in h,Cc)”, 
"out (c)>,h","sbc hl1,h1","1d (NND),h1 0,00), "rra", 

"im 1,(c)","out (c>,1","adc h1,h1*,"1d h1,<(NN)" 

DATA *"*),"*,"","r1d*, "in £,(c)*,*"","sbc hl,sp","l1d (NN>,sp", 
MM ty, **%, "in a,tc)”","out (c>»,a","adc hl,sp","1d sp, (NN>" 
DATA “NA? EPA OA AE Edd”. tepdes mina”, 
AU pin ini oi 
*1ddr","cpdr","indr","otdr*" 

LET p(1)=3 

LET z$(1 TO 3)="nop" 

FOR ¡=i TO 63 

READ 1$: PRINT ¡iz".......*31$ 

LET pCi+1)>=pCi>+LEN ¡$ 

LET z$(pcCir»+1 TO pCi+13=iS 

NEXT i 

FOR ¡=192 TO 255 

READ 1$: PRINT ¡iz"......."3 iS 

LET pCi-127)=p(i-128)+LEN ¡$ 

LET z$(pC(i-128)+1 TO pCi-127)3=i8 

NEXT ú 
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1288 LET qc1>=8 

1218 LET y$(1 TO 8)="in b,(c>" 

1228 FOR ¡i=65 TO 123 

1230 READ ¡$: PRINT "ED "jip"eoo.oo... sis 
1248 LET qci-63)=q(i-64)+LEN ¡$ 

1258 LET y$(qci-64)+1 TO q(i-63)>=i8 


1268 NEXT i 
1388 FOR ¡i=168 TO 187 
1318 READ ¡$: PRINT "ED "jip"o.r.o.ooo.”jis 


1328 LET qli-99)=q(¡i-188)+LEN ¡$ 

13308 LET y$(qc¡i-108)+1 TO qli-99))=i$ 

1348 NEXT ii 

2990 REM 33366 de de dd HE DE DE ME E DI MEE IE DEE DIE IEEE RA 
MEE E E ME 6 E E 6 E 

2992 REM La siguiente seccion es el Desensmblador 

3088 CLS 

30109 PRINT TAB 108;"DESENSAMBLADOR" 

3020 PRINT ,,"Introduce las direcciones de co-mienzo y de final" 

30308 INPUT sa,sf 

30408 IF sa<0 OR sf<sa OR sa<>INT sa OR sf<>INT sf THEN BEEP .2,24 

GO TO 364348 

30508 PRINT ,,"Deseas una copia en la impresora (S/N)?" 

3068 INPUT c$: LET cé$é=CHR$ (CODE c$-32x*(c$>"£")): IF cé<>"s" 
AND c$<>"N" THEN -BEEP: .2,24: GO TO 30648 

3108 LET ¡=sa 

3110 LET J=PEEK i 

3128 PRINT ¡¿TAB 7?;:3 IF c$="S" THEN LPRINT ¡¡¿TAB 7; 

3130 LET w$="HL" 

31408 GO TO 3200+1300*(J=283)+1800x*(j=237)+2300+* 
(j=221>)+2500*(=253) 

3208 IF J<>8 THEN GO TO 32308 

3210 PRINT "nop": IF c$="S" THEN LPRINT "nop” 

3228 GO TO 888 

3230 IF J>63 AND «192 THEN GO TO 3488 

3235 LET t=j-128*(j>191> 

3240 FOR k=p(t>+1 TO p(t+1)>) 

3250 IF z$(k TO k+1)="NN"' THEN GO TO 3888 

3260 IF z$(k>="N" THEN GO TO 3989 

3278 IF z$(k TO k+2)="DIS" THEN GO TO 4088 

3288 1F z$k TO k+1>="h1" AND w$<>"HL" THEN GO TO 4104 

3300 PRINT z$(k>;: IF c$="S" THEN LPRINT z$ck>; 

3310 NEXT k 

3328 PRINT : IF c$="S" THEN LPRINT 

3338 GO TO 9808 

3480 DATA "b","c","d*","e","h","1*","C(h12>*,"a" 

3405 IF j<>118 THEN 60 TO 3418 

3406 PRINT "parar": IF c$="S" THEN LPRINT "parar" 

3487 GO TO 9008 

3418 IF j>127 THEN GO TO 35308 

3428 LET ¡$="1d" 

3438 RESTORE 3489 

3440 FOR k=1 TO J/8-7 

34508 READ js$ 

3468 NEXT k 

3478 RESTORE 3408 

3488 FOR k=1 TO j+1-B8x*INT (/8) 

3498 READ ks$ 

3508 NEXT k 

3510 PRINT 18; ";j8;",";¡k$: IF c$="S" THEN 
LPRINT 1$;" "j$",";k8 

3528 GO TO 2980889 

3538 DATA "add","adc","sub","sbc","and”*,*"xor","or","cp" 
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3548 
3558 
3560 
3670 
3688 
3690 
3708 
37108 
3728 
3730 
3740 
3805 
38109 
3828 
3838 
3840 
3908 
3918 
3928 
3930 
4008 
4018 
4020 
4038 
4040 
4100 
4118 
4120 
4138 
4148 
4150 
4508 
4510 
4320 
4530 
4540 


4550 
4560 
4570 
453809 
4590 
4608 
4610 
4620 
46530 
46540 
4645 
4658 
4660 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4788 
4798 
48009 
4810 
4828 


RESTORE 3538 
FOR k=1 TO j/8-15 

READ ¡$ 

NEXT k 

IF ¿j<149 OR (j>151 AND j<1608) THEN GO TO 3438 
RESTORE 3488 

FOR k=1 TO j+1-8x*INT (4/8) 

READ js$ 

NEXT k 

PRINT 1$3" ";j48:; IF c$="S" THEN LPRINT E AL > 
GO TO 96808 

LET t=PEEK (¡+1)+256x*PEEK (¡+2) 

PRINT tj: IF cé="S" THEN LPRINT t; 

LET ¡=i+2 

LET k=k+1 

GO TO 3310 

LET t=PEEK (i+1> 

PRINT tj: IF c$="S" THEN LPRINT t; 

LET ¡x=j+1 

GO TO 3318 

LET t=PEEK (i+1)-256x*(PEEK (¡+1)>127) 

PRINT tj: IF cé="S" THEN LPRINT t; 

LET ixi+1 

LET k=k+3 

GO TO 3318 

PRINT w$;1 IF c$="S" THEN LPRINT w$; 

LET kmk+1 

IF z$(k+1)<>")" OR Jj=233 THEN GO TO 3318 

LET ¡mj+1 

PRINT "+";¡PEEK ¡z1 IF c$="S" THEN LPRINT "+" ¿PEEK ¡3 
GO TO 33108 

LET ¡=ji+1+(w$<>"HL"> 

LET ¿=PEEK i 

IF j>63 THEN GO TO 4780 

IF (48 OR J>55 THEN GO TO 4548 

PRINT "No hay tal codigo": IF c$="S" THEN 
LPRINT "No hay tal codigo" 

GO TO 9808 

DATA terry tri, ear, sra 0, gr] 
RESTORE 4568 

FOR k=8 TO Jj/8 

READ ¡$ 

NEXT k 

RESTORE 3408 

FOR k=8 TO J-8* INT (y/8) 

READ js$ 

NEXT k 

IF j$="(h1)" AND w$<>"HL" THEN GO SUB 8eas 
PRINT 1$;* "3JS8: IF c$="S" THEN LPRINT ¡$;" "js 
G0 TO 9eea 

DATA "bit","res","set" 

RESTORE 47088 

FOR k=1 TO J/64 

READ ¡$ 

NEXT k 

RESTORE 3408 

FOR k=8 TO j-8x*INT (J/8> 


READ j$ 

IF j$="(h1)" AND w$<>"HL" THEN GO SUB sega 

NEXT k 

LET t=INT (j/8)-8*INT (j/64) 

PRINT iS" "pt", "ys: IF cé="S" THEN LPRINT i8;" "ptit tos 
GO TO 9088 
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5080 
50108 
5028 
5030 
5948 
5100 
5105 
5110 
5128 
5130 
5150 
5168 
5165 
5170 
5208 
5218 
5220 
5230 
5248 
5308 
5310 
5320 


5330 
5400 
5418 
5509 
5518 
5520 
5530 
5709 
5710 
8800 
8018 
80829 
9008 
9018 
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LET ix=i+1 

LET J=PEEK i 

IF j>63 AND (124 THEN GO TO 51088 

IF j>159 AND j<187 THEN GO TO 53008 
GO TO 4540 

LET J=j-64 

IF j=08 THEN (GO TO 5400 

IF ql(j>+1=q(y+1> THEN GO TO 4540 

FOR k=qcJ)+1 TO q(J+1) 

IF ys$(k TO k+1)="NN" THEN GO TO 5280 
PRINT yS(k)53 IF có$="S" THEN LPRINT y$Ck)>; 
NEXT k 

PRINT : IF cóé="S" THEN LPRINT 

GO TO 9808 

LET t=PEEK T1+1)+256x*PEEK (¡+2) 

PRINT tj: IF cóé="S" THEN LPRINT t; 
LET ¡i=i+2 

LET k=k+1 

GO TO 51468 

LET j=j-159 

IF p(J)+1mp(j+1) THEN GO TO 4548 
PRINT y$(p(j)+1 TO p(j+1)): IF cóé="S" THEN 
LPRINT y$(p(y>+1 TO p(y+1)) 

GO TO 968088 


13. DESENSAMBLADOR 


PRINT y$(1 TO 8): IF c$="S" THEN LPRINT y$(1 TO 8) 


GO TO 98808 
LET w$="jx" 
LET ¡ix=j+1 
LET JRPEEK i¡ 
GO TO 3140 
LET uw$=" | y” 
GO TO 5518 


IF PEEK (i-1)=253 OR PEEK C(i-1)=221 THEN GO TO 8838 


LET J$=" ("+w$+"+"+STR$ PEEK C(i-1)+")>" 
RETURN 

LET ¡=i+1 

IF ¡<=sf THEN GO TO 3118 


14. EDITOR DE CODIGO MAQUINA 


14. EDITOR DE CODIGO MAQUINA 


Con cualquier lenguaje de programación y para cualquier computador 
parece siempre que nos encontramos en el caso de existir multitud 

de tareas que el usuario desea que la máquina pueda realizar pero 

que no pueden ser convenientemente escritas en el lenguaje disponible. 
El ZX SPECTRUM no se escapa a esta consideración. 


Examinemos, por ejemplo, el probiema de trasladar el contenido de 

la pantalla a la parte más alta de la memoria RAM. La salida por 
pantalla y sus caracteristicas ocupan 6912 bytes y así es necesario 
mover el RAMTOP hacia abajo a 32768 - 6912 = 25856 en una máquina 
de 16K (65536 - 6912 = 58624 en una máquina de 48K). El siguiente 
programa de BASIC, muy sencillo, introducirá la salida por pantalla 

en un área reservada pero tardará bastante tiempo en hacerlo -cerca 
de 70 segundos-. 


10 FOR i = Y TO 6911 
20 POKE 25856 + i, PEEK (16384 + ¡) 
30 NEXT i 


la razón de que tarde tanto tiempo se debe a que el SPECTRUM emplea 
la mayor parte de su tiempo decodificando comandos, convirtiendo 

a Otros números las parejas de números naturales que el Z80 comprende 
y los 5 bytes decimales en los cuales se almacena el contador del bucle 
y, finalmente, ejecutar las operaciones aritméticas indicadas por los 

5 bytes. 


Las etapas de este proceso son las siguientes: 


Añadir ¡a 16384 

Convertir el resultado a la forma de 2 bytes 

Recuperar el contenido de la dirección PEEK 

Añadir ¡a 25856 

Convertir el resultado a la forma de 2 bytes 

Almacenar el valor recuperado en la dirección POKE 

Añadir UNO al valor de i y almacenar el resultado 

Restar (i - 6911). Si el resultado es positivo o cero, GOTO 1. 


0 YX 0 wn — 
A O EA 


Cada vez que se realiza una pasada a través del bucle el SPECTRUM 
debe decodificar cada comando nuevamente, puesto que no retiene 

en la memoria las operaciones previas. Es fácil darse cuenta que el 
computador pierde cerca del 90% preparándose para ejecutar los comandos 
más bien que ejecutándolos. Tampoco es ninguna sorpresa el que una 
subrutina en código máquina realice la operación de almacenar la salida 
por pantalla en un sitio de la memoria arriba del RAMTOP de forma 

casi instantánea. Un ejemplo de esta subrutina se acompaña al programa 
HEX LOADER. 


Desgraciadamente, escribir en código máquina es una tarea difícil 

y no es juicioso el intentar hacerlo sin la ayuda de algo de software. 
Indudablemente, el mejor programa para escribir en codigo máquina 

(como opuesto a un lenguaje compilador) es un ensamblador, pero un 
ensamblador debe también escribirse en código máquina y no es demasiado 
cómodo publicar largas listas de programas en código máquina. Asi, 

he incluido en este libro un EDITOR DE CODIGO MAQUINA en su lugar. 
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El Editor proporciona todas las posibilidades más importantes de un 
ensamblador excepto para la conversión de los MNEMONICOS en hexadecimal. 


Utilizando el Editor puede escribirse CODIGO MAQUINA en caracteres 
hexadecimales en un área reservada de memoria, añadiendo y borrando 
partes de código, asignando y nombrando variables de 8 bits y 16 bits, 
nombrando segmentos de código, llamando o saltando a aquellos segmentos 
mediante su nombre y almacenando el CODIGO absoluto en la parte 

más alta del RAM en la forma de caracteres. El Editor se escribe 
completamente un BASIC y de esta forma las posibilidades de añadir, 
borrar y almacenar tardan un tiempo razonable -normalmente entre 

5 y 20 segundos- en ejecutarse. 


UN ESQUEMA DE PROGRAMA 
El programa es controlado desde un MENU de opciones (linea 2470) 


ilustrado en la figura FMl. La línea 2490 llama a las distintas subrutinas 
que dependen de la opción elegida dentro del MENU. 


Editor de codigo maquina 


Menu 
Anadir REM A 
Cargar una rutina L 
Nombrar un segmento N 
Sacar una rutina Ú 
Insertar caract. hex I 
Borrar caract. hex D 
Revisar caract. hex R 
Escribir caract. hex 
Parar 5 

Espacio para caract. hex desde 
23760 hasta 23971 


FIGURA FMI. MENU de opciones del EDITOR DE CODIGO MAQUINA 


AÑADIR UNA SENTENCIA REM Introducir A 


El código hexadecimal que introduce el usuario mediante teclado se 
almacena en la línea l. El programa toma nota del número de posiciones 
disponible en la sentencia REM y el resultado aparece en pantalla 

en la parte inferior del MENU de opciones. Si se necesita mas espacio 
entonces el usuario debe parar el programa e introducir una sentencia 
REM de longitud adecuada en la línea 2, ejecutar (RUN) el programa 

y después seleccionar esta opción (A). La nueva sentencia REM se 
incorpora a la antigua y la cantidad de espacio disponible para el código 
hexadecimal se incrementa en consecuencia. 
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La subrutina que controla esta opción se encuentra en las líneas 2430 

a 2460 y 2600 a 2660. Cuando se ejecuta el programa (RUN) la longitud 
de la primera línea de programa se almacena en | y se realiza una 
verificación para comprobar que la primera sentencia es una REM 

(por ejemplo que los 5 bytes en el área del programa contienen 234). 
Cuando la opción de "AÑADIR" se selecciona se realiza otra comprobación 
para asegurarse que la segunda sentencia es una REM, calculándose 

un nuevo valor de l, el cual se introduce mediante POKE en el indicador 
de longitud de línea (como la vez anterior). 


ESCRIBIR CARACTERES HEXADECIMALES Introducir W 


La subrutina para esta opción se encuentra entre las líneas 2680 y 

2850. El usuario debe introducir la dirección (dentro del espacio hexadecimal 
disponible) dentro de la cual él desea almacenar el código, hecho lo 

cual el programa le invita a introducir el código en grupos. El programa 
señala el final de cada uno de los grupos mediante la adición de 128 

al código del carácter, de tal forma que la opción "REVISAR" pueda 

romper este código en los mismos grupos. El programa copia lo introducido 
mediante el teclado en la pantalla junto con las direcciones donde 

se almacenan los códigos. 


El usuario siempre puede pulsar la tecla H (para parar) como código 

final de un programa, puesto que la subrutina que realiza el almacenamiento 
para cuando se encuentra una H. Para terminar la introducción de 
caracteres en medio de un programa pulse la letra T. 


El siguiente ejemplo muestra como una subrutina para imprimir el 
indicador (STACK POINTER) puede introducirse en el espacio para 
caracteres hexadecimales. 


CARACTERES INTRODUCIDOS COMENTARIO 

w Se selecciona la opción ESCRIBIR (caract. HEX) 
23760 Dirección de comienzo del espacio hexadecimal 
210000 LD HL, 

39 ADD HL, SP 

44 LDB,H 

4D LDC,L 

C9 RET 

H Señal de «PARADA» para el almacenamiento 
T se ha terminado la introducción de caracteres 
REVISAR CARACTERES HEXADECIMALES Introducir R 


Esta subrutina está entre las líneas 2900 y 3120. La dirección de cada 
grupo de código se escribe acompañada de pares de códigos y de forma 
ordenada. 
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INTRODUCIR Y BORRAR CARACTERES 
HEXADECIMALES 


Introducir 1ó D 


Los caracteres hexadecimales pueden ser introducidos o borrados en 
cualquier punto del espacio hexadecimal. En ambos casos se ha de 
tener cuidado de introducir el número de CARACTERES que han de 
ser introducidos o borrados y NO EL NUMERO DE BYTES del código 
compilado. Por ejemplo, si el código hexadecimal para "inc hI" es 23 
entonces se ha de introducir 2 porque el número de caracteres es 2 
aunque el código compilado ocupe sólo un byte. 


La subrutina de borrado se encuentra entre las lineas 2340 y 2400 

y la subrutina de inserción entre las lineas 2160 y 2220. Después de 
crear el suficiente número de espacios requeridos, la subrutiña de 
inserción salta a la subrutina de escritura, de tal forma que el usuario 
puede crear el espacio y escribir encima el código siguiente con la 
misma opción. 


NOMBRAR UN SEGMENTO Introducir N 


Esta subrutina (entre las líneas 3130 y 3300) introduce un NOMBRE 
en la localización elegida por el usuario. El nombre es precedido y 
acompañado de un PUNTO cuando es introducido en una sentencia 
REM, haciéndolo más fácil de identificar tanto para el usuario como 
para el programa. 


Los dos bytes que acompañan al nombre se utilizan para almacenar 
un punto de entrada para el segmento relativo a la posicion del nombre. 


Este método permite al usuario situar una subrutina al comienzo de 
un segmento y pasarla por alto cuando el segmento es llamado primero. 


14. EDITOR DE CODIGO MAQUINA 


LLAMANDO SEGMENTOS Y NOMBRANDO VARIABLES 


La opción de escribir (W) necesita códigos hexadecimales como INPUT 
pero si se introduce un nombre de segmento (precedido y acompañado 
de un GUION) entonces también dicho nombre será introducido en 

la sentencia REM. De un modo similar pueden ser introducidas variables 
de 8 bits y 16 bits, siendo sólo aceptadas en las formas Sl, S2, S3, 

etc. (variables de 8 bits) y Ll, L2, L3, etc (variables de 16 bits). 


ALMACENANDO UNA SUBRUTINA Introducir L 


Esta es la subrutina más complicada del programa. Primero se pregunta 

al usuario por la dirección en que va a ser almacenada la versión de 
código absoluto. La respuesta normal podría ser: en un área por encima 

del RAMTOP. Si la respuesta del usuario es una dirección que se encuentra 
por debajo del indicador del STKEND (p.e.: en el área ocupada por 

el propio EDITOR DE CODIGO MAQUINA) entonces el programa pide 

una confirmación de dicha dirección. 


La subrutina realiza dos pasadas a través del código hexadecimal de 

las sentencias REM. En la primera pasada cuenta el número de recorridos 
del bucle las variables de 8 bits y su cantidad, las variables de 16 

bits y almacena los nombres de todos los segmentos del programa en 

y5. Antes de comenzar la segunda pasada se asegura suficiente espacio 
para las variables al principio del área de código absoluto, calculando 

los puntos absolutos introducidos en todos los segmentos. 


En la segunda pasada, el programa compila el código en su sitio sustituyendo 
la dirección absoluta de variables y segmentos de forma correcta. 
LLAMAR UNA SUBRUTINA Introducir U 
Esta subrutina puede utilizarse para comprobar el código absoluto. 


Imprime el Código hexadecimal para cada byte entre los límites especificado 
por el usuario. 
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UN EJEMPLO 


Para una salida por pantalla sugerente introduzca lo siguiente: 


CARACTERES INTRODUCIDOS 


COMENTARIO 


9500 POKE 31000, Q Introduce (POKE) la dirección del 
9510 POKE 31001, 64 principio de la salida por pantalla 
9520 POKE 31002, 255 y del final de los atributos en 
9530 POKE 31003, 91 31000 - 31003 

9540  RANDOMIZE USR 31004 Llamar a la subrutina en código máquina 
9550 GOTO 9540 

RUN Ejecuta el programa 

W Escribe una subrutina en 

23760 23760 

2AL1] LD HL, (L1) 

EB EX, DE, HL 

2AL2 LD HL, (L2) 

A7 AND A 

ED 52 SBC HL, DE 

44 LD B, H 

4D LD C, L 

2AL1 LD HL, (L1) 

3A785C -NEXT- LD A, (23672) 

77 LD (HL), A 

23 INC HL 

QB DEB BC 

78 LD A, B 

BC OR € 

FE CP, 

C2 -NEXT- JP NZ NEXT 

C9 RET 

H 

T 

N Nombrando una subrutina 

23784 en 23784 

NEXT Nombre de una subrutina 

(00) Punto de entrada relativo 

L Almacenando una subrutina 

31000 en 31000 

S Deteniendo el Editor de Código Máquina 
RUN 9500 EJECUTANDO el código básico 
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Mw NN — 


No 


1008 
10108 
1038 
1048 
1950 
1068 
1078 
109808 
1098 
1109 
1128 
1130 
1148 
1158 
1160 
1178 
1180 
1199 
12009 


1218 
1228 
1230 


1268 
1278 
1288 
1298 
1308 
1318 
1320 
1330 
1370 
1388 
1398 


CODIGOS DE ERROR 


Intento de introducir o borrar un código fuera del espacio hexadecimal. 
La primera línea no es una sentencia REM (error fatal). 

El comando que se añade a la línea 1 'no es REM (error fatal). 

Intento de comenzar el código hexadecimal fuera del espacio hexadecimal. 
Intento de continuar el código hexadecimal más allá del espacio 
hexadecimal. 

Intento de revisar el código hexadecimal fuera del espacio hexadecimal. 
Intento de añadir un nombre fuera del espacio hexadecimal. 


PROGRAMA PMI. EL EDITOR DE CODIGO MAQUINA 


LET tó=é 
LET t24=27 
GO TO 2438 
LET ¡=i+1 


FOR j=1 TO LEN y$ 

IF PEEK ¡=CODE y$(j TO > THEN GO TO 106848 
NEXT j 

LET b=-1 

RETURN 


FOR p=1 TO LEN yS$-j-2 

IF PEEK C(i+p)>=CODE "." OR PEEK C(i+p>=173 THEN GO TO 1138 
IF PEEK C(i+p><>CODE y$(j+p TO > THEN GO TO 1658 
NEXT p 

LET b=CODE y$(j+p TO >+256x*CODE y$(j+p+1 TO > 

LET ¡i=i+p+1-2x*(PEEK (¡+p>=173) 

RETURN 

GO SUB 10818 

IF b>32767 AND b<65536 THEN GO TO 1208 

PRINT ,,"Error 11" 

sTOP 

LET yS(j+p TO j+p+1)=CHR$ (b+k-256XxINT ((b+k)/256))>+ 
CHR$ CINT ((b+k>)/256)-128) 

PRINT kj¿"  ";yS(j TO j+p-1> 

GO TO 20878 

LET b=10+2*(PEEK (¡+1)-49-7x*(PEEK (¡i+1)>57)-121x 
(PEEK (i+1)>127)>) 

POKE k,b-256*INT (b/256) 

POKE k+1,INT (b/256) 

LET k=k+2 

GO TO 2078 

LET b=s+PEEK (i+1>-49-7x*(PEEK (i+1)>57)-121x*(PEEK (¡+1)>127> 
GO TO 1248 

GO SUB 1618 

GO TO 12408 

LET ¡=5+PEEK 23635+256x*PEEK 23636 

LET kx=i 

PRINT TAB 7;¡"Cargar codigo maquina",,, 

“Introducir direccion para codigo" 
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1408 INPUT j: IF j>16384 AND J<PEEK 23653+256*PEEK 23454 THEN 
PRINT ,,"Esta parte de RAM esta ocupada. Quieres sequir 
(S 0 N>2": INPUT z$: IF z$="N" OR z$="n" THEN 
PRINT "OK. Prueba otra vez": GO TO 1408 

1488 LET lo=a 

1498 LET s=0 

1588 GO SUB ¿0888 

1518 IF p=CODE "-" OR p=CODE "." THEN GO TO 1548 

1515 IF p>CODE "F" THEN GO TO 14088 

1528 LET ¡=i+1 

1538 GO TO 1580 

1540 LET ¡=i+1 

1558 GO SUB 40889 

1568 IF p=CODE "-" THEN GO TO 1528 

1578 IF p<>CODE "." THEN GO TO 1548 

1588 LET ¡=i+3 

1598 GO TO 1508 

1608 IF p=CODE "H" THEN GO TO 1758 

1602 IF p=CODE "H" THEN GO TO 1758 

1610 LET q=PEEK C(¡1+1>)-48-128*INT (PEEK (¡+1)/128> 

1658 IF p=CODE "L" THEN GO TO 16498 

1660 IF p=CODE "S" THEN GO TO 1728 

1698 IF q»lo THEN LET lo=q 

1700 LET ¡i=i+2 

17108 GO TO 1508 

1728 IF q>s THEN LET s=q 

1738 LET ¡=i+2 

17408 GO TO 15008 

1758 PRINT ,,lo;" variables largas",s;" variables cortas” 

1760 LET ¡=k 

1770 LET k=j+2*l0+s 

1788 LET ks=k 

1799 LET s=2x*l0+J 

1880 LET lo=j 

1810 PRINT ”" variables largas en ";¡lo,"variables cortas en ";¡s, 
"programa en c/m empieza en "j¡k 

18308 LET mxi 

1840 LET m=i: LET y$="" 

1868 GO SUB ¿0009 

1862 IF p=CODE "." THEN GO TO 1908 

1878 IF p=CODE "H" THEN GO TO 1978 

1880 LET ¡=i+1 

1898 GO TO 1848 

1908 LET ¡=i+1 

1919 IF PEEK ¡=CODE "." THEN GO TO 1948 

1928 LET y$=yS$+CHR$ PEEK i 

1938 GO TO 1988 

1948 LET yS$=y$+CHR$ PEEK (¡+1)+CHR$ PEEK (1¡+2) 

1950 LET ¡=i+3 

1968 GO TO 1848 

1979 LET ¡zm . 

1788 GO SUB 4898: IF p=CODE "H" THEN 
PRINT ,,"Final en ";¡k-1: RETURN 

19998 IF p=CODE "." THEN GO TO 1148 

2089 IF p=CODE "L” THEN GO TO 1238 

2018 IF p=CODE "S" THEN GO TO 1308 

2020 IF p=CODE "-" THEN GO TO 1328 

2050 POKE k,1ó6x*CPEEK ¡-7x*(PEEK ¡>57))-B816+PEEK C(i+1)-7% 
CPEEK (i+1)>57)-121*(PEEK C(i+1)>127)-7x*(PEEK (¡i+1)>185) 

2060 LET k=k+1 

2078 LET ¡=i+2 
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2080 
2090 


2100 
2118 
2130 


2140 
21589 
2160 


2170 
2188 


219 
22008 
2218 
2220 
2340 


2358 
2360 


2378 
2388 
2390 
2408 
2438 
24498 
2458 
2468 
2478 


2480 
2498 


2508 
2510 
2550 
2568 
26109 


2620 
26308 
2640 
2650 
2660 
2680 


2690 


2708 


GO TO 19788 
PRINT TAB 18;"Sacar codigo",,, 

"Introduce las direcciones de co-mienzo y final” 

INPUT ks,k* 

FOR ¡=ks TO kf 

LET p=INT C(PEEK ¡/16): LET q=PEEK ¡-16x*INT C(PEEK ¡/16>: 
PRINT CHR$ (48+p+7x*(p>9)>;CHR$ (48+q+7%*(q>9)>)>; "QU"; 

NEXT ii 

RETURN 

PRINT ,,TAB 18;"Introducir codigo",,, 

"Direccion en la que se introducey num. de conceptos" 
INPUT ¡,y 

IF ¡i<prog OR <A OR ¡+j>prog+1 THEN BEEP .2,0: 

PRINT "Error 1": PAUSE 08: GO TO 2178 

FOR k=prog+1-1 TO ¡+j STEP -1 

POKE k,PEEK (k-j> 

NEXT k 

GO TO 2788 

PRINT ,,TAB 18;"Borrar codigo",,, 

"Direccion de comienzo de borradoy num de caracteres hex" 
INPUT ¡sy 

IF ¡<prog OR j<B OR ¡>prog+1 THEN BEEP .2,0: 

PRINT "Error 1": PAUSE 8: GO TO 2358 

FOR k=i TO prog+1-j-1 

POKE k,PEEK Ck+j) 

NEXT k 

RETURN 

LET prog=5+PEEK 23635+256x*PEEK 23636 

LET 1=PEEK (prog-3>+256*PEEK (prog-2>-2 

CLS : PRINT TAB 6;"Editor de codigo maquina" 

IF PEEK (prog-1)<>234 THEN BEEP .2,0: PRINT "Error 2": STOP 
PRINT ,,,,TAB 14;"Menu",,,TAB tó6;"Anadir REM";¡TAB t24;"A"; 
TAB tó6;"Cargar una rutina";TAB t24;"L";¡TAB tó; 

"Nombrar un segmento"; TAB t24;"N";¡TAB tó;"Sacar una rutina"; 
TAB t24;"U"¡TAB tó6;"Insertar caract. hex";¡TAB t24;"I";TAB tá; 
"Borrar caract. hex";¡TAB t24;"D"¡TAB tó6; 

"Revisar caract. hex";¡TAB t24;"R";TAB tó; 

"Escribir caract. hex";¡TAB t24;"W";TAB tó6;"Parar"; 

TAB t24;"S",,," Espacio para caract. hex desde "¡proa; 
* hasta "¿¡prog+l,,, 

INPUT z$: IF CODE z$>98 THEN LET z$=CHR$ (CODE z%-32) 
GO SUB 2400+1590x*(z%$="S")+200x*(z$="A")-1030x*(z$="L">+730% 
(z$="N")-310*(z2%$="U")-240*(2$="]1">)-60*(7$="D")>)+500% 
(z$="R")+280*(z$="W"> 

PRINT TAB 0,,"Pulsa una tecla para continuar": PAUSE 0 
GO TO 24308 

PRINT ,,"programa detenido" 

sTOP 

IF PEEK (prog+1+5)<>234 THEN BEEP .2,0: 

PRINT "Error 3*: STOP 

LET 1=1+PEEK (prog+1+3)+256x*PEEK (prog+1+4)+6 

POKE prog-3,1-256* INT (1/256) 

POKE prog-2,INT (1/256> 

LET 1=1-2 

RETURN 

PRINT ,,TAB 9;"Escribir codigo hex.",,, 

“Introducir direccion de comienzo” 

INPUT ¡: IF ¡<prog OR ¡>prog+!l THEN BEEP .2,8: 

PRINT "Error 4": PAUSE 8: GO TO 2698 

PRINT ,,"Introduce programa hexadecimal 

(pulsa t para salir>" 
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2718 INPUT 2%: IF z$="t" OR z$="T" THEN RETURN 

2728 LET f=0 

2730 PRINT ¡¿"  *; 

2740 FOR j=1 TO LEN z$ 

2758 IF ¡>prog+l1 THEN BEEP .2,8: PRINT "Error 5": RETURN 

2768 LET z$(j)=CHR$ (CODE z$(j)-32x*(CODE z$(j)>96)) 

27708 POKE ¡,CODE z$(j> 

2788 PRINT 2z$(j); 

2798 LET f=f=1 OR z$(y)="-" OR z$(J)=",." 

2808 IF f=8 AND j=2*INT (j/2) THEN PRINT *" "; 

28108 LET ¡=i+1 

2820 NEXT j 

2838 PRINT 

2848 POKE ¡-1,PEEK C(i-1)+128 

2858 GO TO 2710 

2989 PRINT ,,TAB 5;"Revisar codigo hexadecimal",,, 
"Introducir dir. de comienzo" 

2918 INPUT ¡ 

2928 IF ¡<prog OR ¡>prog+1 THEN BEEP ,2,0: 
PRINT "Error 6*: GO TO 2918 

29408 LET j=8 

2950 PRINT ij"  "; 

2960 GO TO 2978+9B8x*(PEEK ¡=CODE ".">+88*(PEEK ¡=CODE "-"> 

2778 PRINT CHR$ (PEEK ¡-128x*INT (PEEK ¡/128)); 

2975 IF PEEK ¡=2868 THEN PRINT TAB 0;"Fin del codigo": RETURN 

2788 LET ¡=i+1 

2998 LET j=j+11 1F j=2*INT (4/2) THEN PRINT q" o"; 

3010 IF PEEK C(i-1)<128 THEN GO TO 2948 

3020 PRINT 

3038 GO TO 2938 

3059 PRINT "-"; 

3060 LET ¡=i+1 

3070 IF PEEK ¡=173 THEN GO TO 2978 

3088 PRINT CHR$ PEEK i; 

3098 IF PEEK (i+1)<>CODE "." THEN GO TO 38408 

3100 PRINT " entrada rel. en "¡PEEK (¡+2)+256x*(PEEK (¡+3)-128) 

3110 LET ¡=i+49 

3128 GO TO 2938 

3138 PRINT TAB 9;"Nombrar un segmento",,, 
"Introducir direccion del segmen." 

3148 INPUT ¡: IF ¡<prog OR ¡>prog+l THEN BEEP .2,8: 
PRINT "Error 7":1 GO TO 3148 

3159 PRINT ,,"Introducir nombre" 

3168 INPUT z$ 

3170 LET z%=","+z$+"," 

3180 LET J=LEN z$+2 

3198 FOR k=prog+1 TO ¡+j STEP -1 

32080 POKE k,PEEK C(k-j) 

3210 NEXT k 

3220 FOR j=1 TO LEN z$ 

3225 IF CODE z$(j)>96 THEN LET z$(j>=CHR$ (CODE 2$(j)-32) 

3238 POKE ¡+j-1,CODE z$(j>) 

3248 NEXT j 

3250 LET ¡=i¡i+LEN z$ 

3268 PRINT ,,"Introduce offset del punto de entrada" 

3278 INPUT j 

3288 POKE ¡,J-256x*xINT (/256) 

3298 POKE ¡+1,128+INT (j/256) 

3308 RETURN 

6080 LET p=PEEK ¡-128x*INT (PEEK ¡/128)> 

6018 RETURN 

9088 FOR ¡=8 TO 255 

9018 POKE 22528+i¡,i 

9028 NEXT 1 

99838 PRINT USR 3240898 
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15. GRAFICOS 


Cuando comencé a trabajar en este programa lo ví con un sentido 
de generación de formas que podian ser grabadas en cassette utilizando 
el comando SCREEN $ y cargados posteriormente en otros programas. 


Sin embargo, pronto comprobé que, con algunos cambios de tipo menor 
podía escribir un programa que permitiera al usuario general, almacenar 
y utilizar sus propios CARACTERES GRAFICOS. 


PRINCIPIOS OPERATIVOS 


Veintiuno (21) de los 256 códigos de carácter en el GRUPO de caracteres 
del SPECTRUM (números 144 al 164 inclusive) se encuentran a disposición 
para que el usuario defina sus propios caracteres gráficos. La tabla 

que define la forma de los caracteres normalmente se encuentra en 

la parte más alta del RAM, justo sobre el indicador del RAMTOP (tal 
como se indica en la página 179 del Manual de Programación BASIC 

del ZX SPECTRUM). 


Cuando se conecta a la red el ZX SPECTRUM en los gráficos definidos 
por el usuario hay una copia de las letras mayúsculas A a U y la variable 
del sistema UDG en 23675 y 23676 está apuntando a la cota inferior 

del área de gráficos en 32600. Se puede acceder a los caracteres gráficos 
presionando CAPS SHIFT 9, seguidos de la letra deseada y a continuación 
CAPS SHIFT 9 de nuevo. 


Todos los caracteres del ZX SPECTRUM se construyen mediante una 
retícula de 8 x 8 pixels, pudiendo estar cada uno de los pixels iluminados 
o no. 


Esto permite al bloque de pixels que forman un carácter ser almacenados 
en 8 bytes con la condición de que cada uno de los 8 bits de cada 

byte tenga un cero o un uno si se desea que el pixel correspondiente 

esté iluminado o no. Así las condiciones deseadas para los 8 pixels 

de la línea superior de la retícula se almacenan en el primer byte, 

la 23 línea se almacenan en el segundo byte y así los demás. 


Conforme a este método la forma de los 21 caracteres diferentes (letras 
mayúsculas de la A a la U) puede ser almacenada en una tabla de 

21 x 8 = 168 bytes. No es sorprendente pues ver que el indicador UDG 
se encuentre en 32600, es decir 168 bytes por debajo de la parte más 
alta del RAM (RAMTOP), para una máquina de 16K. 


Si se introduce un nuevo valor para un carácter dentro de la variable 
del sistema UDG el área de memoria (a la que se accede cuando se 
construyen gráficos definidos por el usuario) cambiará así como los 
caracteres construidos en ella. Este efecto se ilustra por la subrutina 
que aparece a continuación, la cual imprime una línea de caracteres 
gráficos, cambia UDG e imprime una segunda línea, etc. 
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10 FOR i=1 TO 21 

20 PRINT AT ¡»03 "ABCDEFGHI JKLMNOPQRSTUABCDEF GHI JK" 
30 LET J=RNDA32768 

40 POKE 23675, INT (J-256XINT (J/256)) 

50 POKE 23676, INT (J/256) 

60 NEXT 1 

70 GO TO 10 


Nota:Las letras son los caracteres definibles 


PROGRAMA PGI. Este programa imprime caracteres gráficos fantásticos 


La línea de caracteres en el comando PRINT de la línea 20 debe ser 
precedido y terminado por CAPS SHIFT 9 cuando se introduzca mediante 
teclado. 


SOBRE EL PROGRAMA 


Cuando el programa se ejecuta (RUN) el RAMTOP se baja a 31087 

para disponer de espacio suficiente para 10 grupos de caracteres definidos 
por el usuario de 21 caracteres cada uno. A continuación el programa 
accede a una subrutina de inicialización (líneas 500 a 900), la cual 
almacena 32 caracteres para el diseño de su forma en el primero y 

parte del segundo almacén de caracteres. Los datos para estos caracteres 
se leen en las sentencias DATA y algunos de los caracteres resultantes 
pueden verse en las sentencias PRINT de las líneas 760, 1060 y 2610. 

Se puede también acceder a esta subrutina de inicialización desde 

el MENU principal, mediante la opción l. 


El MENU principal se muestra en la figura FG] y aparece en pantalla 
una vez que se ha llevado a cabo la inicialización. Su parte superior 
de la pantalla es una retícula de 8 por 8 que se utiliza para construir 
interactivamente nuevos caracteres, obteniendo caracteres tanto de 

la forma ordinaria como de los ya definidos por el usuario, pudiéndolos 
intercambiar. Esta última característica permite al usuario copiar 

los caracteres antiguos y alterarlos en algo o en todo para producir 
unos nuevos. 


Cuando se selecciona la opción "AÑADIR", el programa pregunta al 
usuario si desea BORRAR la SALIDA DE GRAFICOS (GRAPHIX DISPLAY) 
y después se le invita a introducir pares de coordenadas para crear 

o ampliar el carácter gráfico. Después de cada par de coordenadas 

el programa comprueba las características de localización de impresión 
adecuadas, si el carácter gráfico número 8 está en blanco y pone a 

cero los valores de INK y PAPER. Este procedimiento permite que 

los caracteres se impriman sobre los antiguos, pero sin borrarlos, como 
sería el caso si hubieramos utilizado el comando OVER. 


15. GRAFICOS 


GRAFICOS 
12345678 
8 8 
7 7 
6 6 
5 5 
d 4 
3 3 
2 2 
1 1 
12345678 
Anadir caracteres A 
Salida caracteres en pantalla D 
Volcado desde mem. a caracter M 
Copia de caracter a memoria Cc 
Construir Pant. B 
Grabar prog. 5 
Parar prog. H 


FIGURA FGI. El MENU de opciones de GRAFICOS 


La opción D, "salida de todos los caracteres", borra la pantalla e imprime 
todos los gráficos definidos por el usuario. La opción M, "memoria 

a salida de caracteres por pantalla", copia un carácter tanto si es 

uno de los 10 definidos por el usuario como si es uno de los standard 
(número CERO) en la SALIDA GRAFICA y la opción C, "caracteres 

a memoria" realiza la función contraria. 


El programa, las variables y el área de caracteres gráficos puede ser 
grabado en cassette utilizando la opción "GRABAR el programa en 
cinta", pero antes de cargarlo (de cinta) el usuario debe introducir 
por teclado para borrar el RAMTOP: 


CLEAR 31087 


CONSTRUYENDO UNA SALIDA POR PANTALLA (Introducir B) 


Habiendo diseñado caracteres a nuestra conveniencia, almacenándolos 
en la memoria y, quizás, grabándolos en Cinta utilizando el MENU 
principal, el usuario puede seleccionar la opción "CONSTRUIR UNA 
SALIDA GRAFICA" para diseñar una salida por pantalla de su elección. 
Las 20 líneas por 32 columnas de la pantalla están disponibles para 

el usuario, aunque la 20 y 21 son utilizadas para mostrar los caracteres 
gráficos. La salida puede construirse a partir de todos los caracteres 
de los 10 grupos definidos por el usuario o a partir de los caracteres 
ordinarios. Una salida puede ser grabada en cassette y ser utilizada 

en un programa posterior. De igual forma, una salida de otro programa 
distinto puede ser copiada en la pantalla. 
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Cuando se selecciona la "B" aparecen varias opciones en pantalla, tal 
como se ilustra en la figura FG2. Sólo se permiten las letras mayúsculas 
A a U excepto cuando se usan los caracteres ordinarios. Una letra 

de la "A" a la "U" seguida de una pareja de coordenadas hace que 
aparezca en la pantalla el carácter correspondiente dentro de los definidos 
por el usuario. Las letras pueden ser repetidas tan frecuentemente 

como se desee para construir la forma requerida, dibujar un mapa, etc. 
Otro grupo de caracteres puede ser seleccionado sin necesidad de alterar 
el contenido de la pantalla mediante la letra 'Y". El nuevo grupo aparece 
en la parte inferior de la pantalla. El grupo ordinario de caracteres 

se selecciona de forma similar mediante la letra "V". 


Las letras "W" y "X" se utilizan respectivamente para GRABAR en 
cinta y CARGAR (de cinta) la pantalla. 'Z' hace volver al MENU principal. 


Construir PANTALLA 


Comandos 

A-U - dibuja A-U grupo actual 
Ú - car. standardísalir=5PACE) 
5] - graba pantalla en cinta 

Xx - carga pantalla de cinta 

Y - cambia otro grupo caract. 
La - menu 


Pulsa tecla para seguir 


FIGURA FG2. Las varias opciones disponibles cuando se construye 
una salida por pantalla 


SPECTRUM CON 48K 


El programa funciona tal y como está escrito para la máquina de 48K. 
El espacio extra disponible sobre el RAMTOP puede utilizarse para 
almacenar copias de diversas salidas por pantalla. De las 2 subrutinas 
que figuran a continuación, una copiará la pantalla en la dirección 
40000 y otra la tomarán de dicha dirección. Una subrutina en código 
máquina que realiza esta misma operación se adjunta al programa 
"HEX LOADER" (carga de rutinas en código máquina). 


9000 FOR i=0 TO 6143 
9010 POKE 40000 + ¡, PEEK (16384 + ¡) 
9020 NEXT ¡ 
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9050 
9060 
9070 


FOR 1 0 TO 6143 
POKE 16384 + 1, PEEK (40000 + 1) 
NEXT 1 


PROGRAMA PG2. GRAFICOS 


CLEAR 318087 

DIM uc18> 

FOR ¡=8 TO 9 

LET uci+1)=31088+168*1 


NEXT 

BORDER 1: PAPER 1: INK ? 
GO TO 5809 

GO SUB 88808 

BORDER 1: PAPER 1: INK 7? 


PRINT AT 15,0;"Anadir caracteres";¡TAB 31; 

"ASalida caracteres en pantalla DVolcado desde mem. a 
caracter MCopia de caracter a memoria";¡TAB 31;"CConstruir 
Pant."¡TAB 31;"B";"Grabar prog.";¡TAB 31;"SParar prog."; 

TAB 31;"H" 

INPUT z$: LET z$=CHR$ (CODE z$-32*(2$>"%£")) 

GO TO 280+3008x*(z$="]">)+800x*(z$="D">)+1300x*(z$="M">)+1800% 
(z$="C")+2300x(z6="B")+2800*(z$="S")+3300x*(z$="H")+3800%* 
(z$="A") 

INPUT “Pulsa tecla para sequir";z% 

GO TO 158 

DATA 3,16,1,240,4,8,3,16,1,31,7,0,1,240,4,16,3,0,1,31,12, 
16,3,0,1,255,4,0,3,16,1,255,7,16,1,31,7,16,1,240,7,16,1, 
255,7,0,1,255,4,16 

DATA 2,16,3,255,3,16,3,56,1,255,7,56,1,63,9,56,2,16,3,31,5, 
16,3,255,3,0,3,56,1,255,4,0,3,56,1,248,4,56,2,16,3,240,3,16, 
2,0,3,255,3,16,3,0,1,255,4,56 

DATA 3,24,2,248,3,0,3,24,2,31,6,0,2,248,3,24,3,0,2,31,11,24, 
3,9,2,255,3,0,3,24,2,255,6,24,2,31,6,24,2,248,6,24,2,259, 
3,24,3,0,2,255,3,24 

GO suB 8588 

RESTORE 

PRINT TAB 10; FLASH 1;"Inicializando" 

PRINT AT 20,5;"ABCDEFGHI JKLMNOPQRSTU" ¡TAB 5; 

POKE 23675,112: POKE 23676,121 

LET n=8 

FOR ¡=8 TO 255 

IF n=0 THEN READ n,k 


LET n=n-1 

POKE 31888+i,k 

NEXT i 

PRINT "x : 
FOR ¡=31344 TO 32767 

POKE ¡,8 

NEXT i 

GO TO 158 


CLS : PRINT TAB 12;"GRAFICOS" 

PRINT ,,TAB 8;"Salida caracteres" 

PRINT AT 4,5;"ABCDEFGHIJKLMNOPQRSTU", TAB 5; 
FOR ¡=31088 TO 32688 STEP 168 

POKE 23675,i-256x* INT (¡/256) 

POKE 23676,INT (¡/256) 


PRINT "x “¡TAB 5; 
NEXT i 

PRINT 

INPUT "Pulsa tecla para sequir”";z%$ 
GO SUB 85080 
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1118 GO TO 158 
1208 GO TO 288 


1588 GO SUB 8888 

1510 PRINT * Volcado desde memoria a salida caracteres" 

1528 INPUT "Borrar salida de graficos (S/N>?";z$ 

1530 LET z$=CHR$ (CODE z$-32*(z$>"%£")) 

1598 IF z$<>"S" AND z$<>"N" THEN BEEP .2,24: GO TO 1528 

1550 IF z$="S" THEN GO SUB 85808 

1560 LET im=08 

1578 GO SUB 806080 

1588 IF ¡<>4 THEN GO TO 1764 

1608 LET r=41 LET c=12 

1618 FOR j=8 TO 7 

1628 LET u=PEEK (15616+8x*(CODE z$-32)+j) 

1630 GO SUB 1908 

1648 NEXT j 

1458 GO TO 208 

1710 LET r=4: LET c=12 

1720 FOR j=8 TO 7 

17380 LET u=PEEK (uCi>+j+B8x*x(CODE z$-65)) 

1748 GO SUB 1988 

1750 NEXT j 

1790 GO TO 288 

1908 FOR k=8 TO 7? 

19180 LET t=2"(7-k> ; 

1920 IF INT C(u/t)>=1 AND ATTR (r+jy,c+k>=15 THEN PRINT — INK 1; 
PAPER 7; INVERSE 1;AT r+y,c+k;"m" 

1938 LET u=u-t*INT (u/t> 

1940 NEXT k 

1958 RETURN 

2088 GO SUB 88088 

20108 PRINT TAB 3;"Paso de caracteres a memoria" 

20208 LET im=0: LET r=4: LET c=12 

2038 GO SUB 8089 

2048 PRINT FLASH 1;"*"Espera, un poco" 

20608 FOR j=8 TO 7? 

20708 LET u=08 

2088 FOR k=8 TO 7 

2098 IF ATTR (r+j,c+k><>15 THEN LET u=u+2*(7-k) 

2108 NEXT k 

2118 POKE uci)>+8x*(CODE z$-65)+,u 

2128 NEXT j 

2288 GO TO 288 

25008 CLS : PRINT TAB 8;¡"Construir PANTALLA" 


2510 PRINT ,,"Comandos :" 

2520 PRINT ,,"A-U - dibuja A-U grupo actual" 
2530 PRINT ,,"V -= car. standardí(salir=SPACE)*" 
2548 PRINT ,,"W - graba pantalla en cinta" 
2558 PRINT ,,"X - carga pantalla de cinta" 
2568 PRINT ,,"Y - cambia otro grupo caract." 
2578 PRINT ,,*2 - menu" 


2580 PRINT ,,,,"Pulsa tecla para seguir”" 

2598 PAUSE 4 

26080 CLS : LET ¡=1: POKE 23675,112: POKE 23676,121 
2610 PRINT AT 20,5;"ABCDEFGHI JKLMNOPQRSTU* ¡TAB 5; 


2620 INPUT z$: LET z$=CHR$ (CODE z$-32X*(z$>"£")>): 
IF z$<"A" OR z$>"2" THEN BEEP .2,24: GO TO 2618 

2638 GO TO 2788+3300x*(z$<="U">+3400x*(z7$="U")+3500% 
(z$="")+3600*(z7$="X")+3700x(z$="Y") 

2788 GO SUB 8588 

2718 GO TO 158 

300809 GO SUB eses 

3018 PRINT TAB 108;"Grabar GRAFICOS" 
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3020 
3030 
3040 


PRINT ,,"Nombre programa?" 

INPUT z$: IF LEN z$>10 THEN BEEP .2,24: GO TO 3038 
SAVE z$ LINE 3108 

PRINT ,,"Grabar caracteres" 

SAVE z$C0DE 31888,1680 

PRINT ,,"Finm grabacion" 

GO TO 280 

LOAD z$CODE 310988,1480 

GO TO 288 

GO SUB 88484 

PRINT "Programa detenido" 

STOP 

GO sub 88eee 

PRINT TAB 6$;"Anadir caracteres" 

INPUT "Borras salida graficos?(S/N)";z5$ 

LET z$=CHR$ (CODE 2$-32*(27%$>"£")>) 

IF z$<>"S" AND z6<>"N" THEN BEEP .2,24: GO TO 4020 
IF z$="S" THEN GO SUB 854808 

INPUT "Coordenadas (1 to 8), O0=f in "¡a,b 

IF acx8 OR a>8 OR bXB8 OR b>8 THEN BEEP .2,24: GO TO 40640 
IF a=0 OR b=0 THEN GO TO 244 


IF ATTR (12-a,11+b)=15 THEN PRINT  INK 1; PAPER 7; 
INVERSE 1;AT 12-a,l1+b;"m" 
GO TO 4848 


INPUT "Introduce y,xtcomo PRINT >"¿x¿" *; 
IF x<08 OR y<0 OR x>19 OR y>31 THEN BEEP . 
PRINT AT x,y;CHR$ (CODE z%+79) 

GO TO 2618 

INPUT "Introduce carac.,y,x “¡z8;" "¡¿x3" "¡y 
IF z$<" " OR z$>" OR x<8 OR y<8 OR x>19 OR y>31 THEN 
BEEP .2,24: GO TO ¿4188 

IF z$=" " THEN GO TO 2610 

PRINT AT x,y3z$ 

GO TO 4108 

INPUT “Nombre pantalla ";z$ 

IF LEN z$>10 THEN BEEP .2,24: GO TO 4208 

SAVE z$SCREENS 

GO TO 26108 

INPUT "Nombre pantalla";z$ 

IF LEN z$>10 THEN BEEP .2,24: GO TO 4308 

LOAD z$SCREENS$ 

GO TO 2610 

INPUT "Elige grupo caracter.(1 a 10)>*;i 

IF ¡<1 OR ¡>18 THEN BEEP .2,24: GO TO 4400 
POKE 23675,u(i>-256x* INT (u(i>/256) 

POKE 23676,INT (uc(i>/256) 

GO TO 26108 

INPUT “Elige grupo de caracter.(1 a 18>";i 

LET a$="A": LET bs$="U" 

IF ¡<im OR ¡>18 THEN BEEP .2,24: GO TO 8000 
IF ¡í<>8 THEN GO TO 8858 

INPUT "Introduce caract. ( too) ";¡z$ 

GO TO 8848 

INPUT "Introduce caracter (A to U)» ";z$ 

IF ¡i=08 THEN LET as$=" * 

IF ¡i=8 THEN LET b$="0 

IF z$<a$ OR z$>b$ THEN BEEP .2,24: GO TO 8028 
IF ¡=8 THEN RETURN 

POKE 23675,u(i>-256x*INT (uti>/256) 

POKE 23676,INT (uci)/256) 

RETURN 

CLS : PRINT TAB 12;"GRAFICOS"* 

PRINT AT 2,12;"12345678" 


y 
2,24: GO TO ¿0008 
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FOR i=1 TO 8 

PRINT AT 3+1,10;9-¡ ¡TAB 21;9-i 
NEXT i 

PRINT AT 13,12;"12345678" 


PLOT 91,75 
DRAW 73,0 

DRAW 8,73 

DRAW -73,8 
DRAW 8,-73 
RETURN 


FOR ¡=14 TO 21 
PRINT AT ¡,0;" 
NEXT 1 
PRINT AT 14,0; 
RETURN 
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Escribí este programa inmediatamente después de terminar el programa 
MUSICA y por ello, ambos presentan grandes afinidades. Ambos tienen 

un MENU de opciones y almacenan los datos en una cadena numérica. 

En ambos casos el usuario puede escribir y rectificar los datos, ejecutar 
el programa y cambiar el dibujo hasta que esté completamente satisfecho 
con él. El dibujo (o pieza musical) resultante puede entonces ser grabado 
independientemente en cassette para una ocasión posterior. 


Todas las habilidades para dibujar del ZX SPECTRUM pueden ser utilizadas 
mediante el comando DRAW tal y como se describe en el capítulo 

17 del Manual de Programación Basic para el ZX SPECTRUM. La forma 
básica de este comando es: 


DRAW x, y 


donde x e y son movimientos relativos que se desean realizar a partir 
de la posición actual. Una variante del comando es: 


DRAW x, y, a 


donde x e y significan lo anteriormente dicho y a es el ángulo en RADIANES 
que gira la línea para realizar el movimiento, para utilizar más fácilmente 
este comando he convertido todos los ángulos de radianes a GRADOS 

porque entiendo que la mayor parte de la gente está más familiarizada 

con esta forma de expresar los ángulos. 


Cuando se ejecuta (RUN) el programa pregunta al usuario por los colores 
que se desean para el BORDER (parte de la pantalla externa a las 

20 x 31 posiciones) y el PAPER (parte interna de la pantalla, fondo 

en el cual se escriben caracteres en colores mediante INK) y el número 

de movimientos que se esperan introducir. Entonces el programa establecerá 
una cadena de 2 dimensiones, la cual se utilizará para almacenar la 
información siguiente: 


(i, 1) movimiento relativo en dirección x 

(1, 2) movimiento relativo en dirección Y 

El ángulo en grados que se desea gire la línea 

(i, 4)  -1l para parar, f a 7 para determinar el color del dibujo. 
(i, 5)  Coordenada absoluta x actual 

(1, 6)  Coordenada absoluta y actual. 


TOCUCOUCO 
_ 
uy 
= 


El usuario controla el programa por medio del MENU que aparece 

en la figura FK1, el cual se genera en la línea 200. Introduciendo uno 
de los comandos de la columna de la derecha el programa ejecutará 
la subrutina adecuada conforme a la línea 230. 
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BOCETOS SPECTRUM 


MENU 
Escribir (datos) LL 
Revisar datos) R 
Imprimir (datos) P 
Dibujar D 
Cotor fondo y borde B 
Cargar de cinta L 
Grabar en cinta Ss 
Verificar Uv 
Detener programa H 


Figura FKl. El MENU de opciones para BOCETOS en el SPECTRUM 


ESCRIBIR Introducir W 


Esta opción permite al usuario escribir nuevos movimientos o escribir 
sobre movimientos que el desee borrar. El programa pregunta por el 
movimiento en el que desea comenzar: normalmente 1. 


El dibujo siempre comienza en el ángulo inferior izquierdo de la pantalla, 
en las coordenadas x = , y = Qf. Los siguientes movimientos comienzan 
en el punto en el cual el movimiento anterior paró. La máxima distancia 
que se puede mover en total es de 255 en la dirección x y 175 unidades 
en la dirección y. El programa comprueba que el dibujo no se salga 

de estos límites cuando mueve en línea recta, pero el usuario debe 

tener cuidado y asegurarse de que sus curvas también se encuentran 
dentro de los límites. 


El programa debe conocer, para dibujar, el movimiento de x, el de y 

y el ángulo a girar en grados medidos en sentido CONTRARIO a las 

agujas del reloj. Un ángulo negativo hará que se dibuje en el sentido 

de las agujas del reloj. Una vez conocido el número de orden del movimiento 
y la terna de valores anteriores se ha de teclear el COLOR de la 

línea a dibujar (que debe estar comprendido entre 0 y 7), indicando 

el color que se encuentra en la fila superior del teclado del SPECTRUM. 

Si se introduce "U" quiere decir que la pluma que dibuja debe "levantarse" 
(UP) de la pantalla durante ese movimiento, lo que permite al usuario 

poder cambiar de área en que se dibuja sin dejar rastro. 


REVISAR Y DIBUJAR Introducir R 6 P 


Estas 2 opciones listan las instrucciones actuales en la pantalla o en 
la impresora. La tabla TK1 lista las instrucciones para dibujar el BOCETO 
de la FIGURA FK2. 
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INSTRUCCIONES PARA IMPRESION 


Movim.  X Y Grados UDC 
1 127 40 15] Ú 
Z A 4 180 ó 
3 a 96 154 á 
4 -45 45 a Ú 
3 13 32 -274 q 
á e? =32 15 Ú 
? -=13 32 270 4 
S =52 "22 a ul 
>? a 20 156 2 
16 A -2H4 sa 2 
11 40 15] a UÚ 
12 6 ZA 1840 Z 
13 6 -28 154 2 
149 B -30 a u 
15 -908 Aa -12a 4 
15 24 14 a u 
17 3 150 q 
18 6 -8 1540 4 
19 4 49 a u 
zo 6 18 135 4 
21 4 8 -130 4 

Tabla TKl. Instrucciones fisicas utilizadas por el programa "BOCETOS" 


FIGURA FK2. Un BOCETO típico 


Boceto terminado. Pulsa tecla 
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COLOR DE FONDO Y BORDE DEL BOCETO Introducir B 
Esta opción permite al usuario cambiar el color de fondo y borde del 
boceto. 

DIBUJO Introducir D 


El programa ejecuta las instrucciones actuales para dibujar el boceto 
deseado en la pantalla. 


PROGRAMA PKIl. CROQUIS 


1 GO SUB 4999 

10 CLS : PRINT. TAB 8;"BOCETOS SPECTRUM",,,"Introduce:”".,, 
" No. de movimientos",”" Color del borde (8 - 7)", 
" Color del fondo (8 - 7)" 

20 INPUT nm,b,p: IF nm<8 OR b<B OR b>?7 OR p<B8 OR p>7 THEN 
BEEP .2,8: GO TO 18 

30 BORDER b: PAPER p 

40 LET end=98 

50 DIM b(nm+1,6) 

60 LET b(1,1>=nm 

70 LET b(1,2>=b 

89 LET b(1,3>=p 

99 LET b(1,5)=0 

100 LET b(1,6)=0 

208 CLS : PRINT TAB 8;¡"BOCETOS SPECTRUM",,,TAB 14;"MENU",,,TAB 6; 
"Escribir (datos)";¡TAB 26;"W" ,TAB 6;"Revisar  —(datos)”"; 

TAB 26;¡"R",TAB 6;" Imprimir (datos) "¡TAB 26;"P",TAB $; 
"Dibujar"¡TAB 26;"D",TAB 6;"Color fondo y borde";¡TAB 26;"B", 
TAB 6;"Cargar de cinta"; TAB 26;"L",TAB 6;"Grabar en cinta"; 
TAB 26;"S",TAB 5$;"Verificar"¡TAB 26;"U",TAB 6; 

"Detener programa";¡TAB 26;"H" 

210 INPUT z$ 

220 IF z$>="a" THEN LET z$=CHR$ (CODE z%$-32) 

230 GO TO 380+200x*(z$="W")+7900x*x(z7$="B")+1200*(z7$="R">)+1700x* 
(z$="L")+2200x*(z2%$="S")+27090*(2$="D">)+3200*(7$="U")+3700%x 
(z7$="H")+4200x*(z$="P")> 

300 PAUSE 208 

310 GO TO 208 

500 PRINT ,," INSTRUCCIONES”, 

" Introduce el movimiento a par--tir del cual deseas 
comenzar a escribir." 

518 INPUT 1 IF <1 OR jznm THEN GO TO 510 

520 PRINT ,," Introduce para cada movimiento las coordenadas 
X e Y, el angulo y U (para subir> o D (para ba--jar).",, 
"Introduce:",," F para terminar"," B para volver atras” 

549 PRINT ,," Movim. X Y Grados U/D/C",,, , 

545 PRINT ,, 

550 FOR ¡=j+1 TO nm+1 

5608 PRINT AT 21,3;i-1;TAB 8; "MN": INPUT x$: 

IF x$="f" OR x$="F" THEN GO TO 988 

575 PRINT AT 21,8;x$;" "33 LET b(i,5)=bCi-1,5>+VAL x* 

589 PRINT AT 21,14; "MD"; + INPUT y$: LET bC(¡i,6>=bCi-1,6)+VAL y$: 
IF y$="b" OR y$="B" OR b(1,5)>255 OR b(¡,5)<8 OR b(¡1,6)>175 
OR b(i,6)<8 THEN BEEP .2,8: GO TO 548 

585 PRINT AT 21,14;y$;" 3 

5909 PRINT AT 21,20; "MEN": INPUT z$: IF z$="b" OR z$="B" THEN 
BEEP .2,0: GO TO 5808 
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595 
608 


605 
$10 


620 


650 
668 
680 
690 
908 
910 
928 
930 
949 
950 
1009 


1010 
1028 
1030 
10940 
1508 


1505 
1518 
1528 


1538 
1540 
1550 
1560 
2000 


2010 


2015 
2020 
2038 
2040 
2050 
2060 
2078 
2080 
2098 
2109 
2118 
2500 


2510 


2520 
2530 
2540 
2550 
2560 
3000 
3010 
3020 
3021 
3022 


PRINT AT 21,28;2z8;" e 

PRINT AT 21,27;"W";: INPUT a$: 1F a$="b" (UR a$="B" THEN 
BEEP .2,08: GO TO 5908 

PRINT AT 21,27;a$ 

IF as$<>"u" AND a$<>"d" AND as$<>"U" AND a$<>"D" AND (as$<"a" 
OR a$>"7") THEN BEEP .2,8: GO TO 408 

LET bC(i,1)=VAL x$: LET b(i,2)=VAL y$: LET bC(i,3)=UAL z$: 
LET b(1,4)=-1x*(a$="u" OR a$="U")>+(CODE a$-9B>)*(as<"U"> 
PRINT 

NEXT ¡ 

LET end=nm+1 

GO TO 368 

IF ¡i>»=end THEN LET end=i-1: GO TO 280 

FOR j=i TO end 

LET b(y,S5)=b(y-1,5)+b(4,1) 

LET bD(J,6)>=b(y-1,6)+b(,2) 

NEXT j 

GO TO 288 

PRINT ,,TAB 7;“Cambio de colores",,,"Los valores son:", 


*  Borde",b," Fondo",p,,,"Introduce los nuevos valores” 
INPUT b,p 


BORDER b 

PAPER p 

GO TO 78 

PRINT ,,TAB 6$;"Instrucciones”,,, 

" Movim. X Y Grados U/D/C" 

PRINT 5, 

FOR ¡=2 TO end 

PRINT TAB 3;i-1;TAB 8;b(¡i,1>;TAB 14;b(i,2)¡TAB 22;bCi,3); 
TAB 28;CHR$ (68+17*(bCi,4)=-1)-(28-bC(1,4)>*(b(i,4)>=0)) 
NEXT ¡ 

PRINT ,,"Pulsa para volver al MENU" 

PAUSE 32768 

GO TO 208 

PRINT ,,TAB 10;"Extraer un boceto"¡AT 21,0; 
"Introduce el nombre del boceto" 

INPUT z$: IF LEN z$>18 THEN PRINT AT 21,9; 

"Nombre muy largo. Repitelo": GO TO 20198 

PRINT AT 21,0;" * 
PRINT AT-21,08; FLASH 1;"CARGANDO PROGRAMA" 

LOAD z$ DATA bC> 

LET nm=b(1,1) 

LET b=b(1,2> 

LET p=b(1,3> 

LET end=b(1,4> 

BORDER b 

PAPER p 

PRINT AT 19,08;z$;" Carga correcta * 

G0 TO 308 

PRINT ,,TAB 9;"Grabar un boceto";AT 21,8; 
"Introduce el nombre" 

INPUT z$: IF LEN z$>189 THEN PRINT AT 21,0; 
"Nombre muy largo. Repitelo": GO TO 2510 

LET b(1,4)=end 

PRINT AT 21,08; FLASH 1;"REALIZANDO GRABACION" 
SAVE 2z$ DATA b(> 

PRINT AT 21,0;z$;" Grabacion correcta », 
GO TO 3088 

CLs 

PAUSE 180 

FOR ¡=2 TO end 

IF b(i,4)=-1 THEN GO TO 3835 

FOR j=8 TO b(i,3) STEP b(i,3)/15 
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3024 IF ¡=2 THEN PLOT 8,8: GO TO 3038 

3826 PLOT  INK bC(i,4>;b(i-1,5>),b(i-1,6) 

3838 DRAW  INK b(1,9);bC(i,1>,bC(i,2>,jx*PI1/180 

3032 NEXT j 

30833 GO TO 3840 

3035 PLOT b(¡i,5)>,bCi,6) 

309408 NEXT ¡ 

3058 PRINT AT 21,0; FLASH 1;"Boceto terminado. Pulsa tecla" 

30648 PAUSE 9 

3078 GO TO 208 

3580 PRINT ,,TAB 8;"Verificar un boceto" ¡AT 21,0; 
"Introduce el nombre del boceto" 

3518 INPUT z$: IF LEN z$>18 THEN BEEP .2,0: PRINT AT 21,8; 
"Nombre muy largo. Repitelo": GO TO 3518 

3520 PRINT AT 21,08; FLASH 1;" REALIZANDO VERIFICACION ” 

3530 VERIFY z$ DATA b(> 

3548 PRINT AT 19,B8;z$;" Verificacion correcta il 

3558 GO TO 30808 

4888 PRINT ,,"Programa detenido" 

40918 STOP 

4588 PRINT AT 21,0; FLASH 1;"REALIZANDO IMPRESION": 
LPRINT ,,TAB 7?7;"Imprimir instrucciones”: 
LPRINT ,,*" Movim. X Y Grados U/D/C" 

4505 PRINT ,, 

45189 FOR ¡=2 TO end 

4528 LPRINT TAB 3;i-1;TAB 8jbC¡i,1>¡TAB 14;b(i,2>;TAB 22;b(1,39); 
TAB 28;¡CHR$ ($8+17*(bC(i,4)=-1)-(28-b(i,4))x(b(¡,4)>=8)) 

45308 NEXT ¡ 

4535 PAUSE 8 

4548 GO TO 2088 

4999 CLS : PRINT AT 8,6;"BOCETOS SPECTRUM” 

5008 : PRINT AT 10,0;"Este programa permite represen- tar dibujos 
o bocetos en panta- lla y en alta resolucion."," Ello se 


conseguira a traves de rectas y curvas ¡ntroducien- do el 
punto donde comienzan asi","como el angulo de inclinacion. "a 
" En el apartado U/D/C se in-= ","troducira U, D o un color 
c1-6)" 


5010 PAUSE Q 
5020 RETURN 
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17. ESPIRALES 


Espirales es un programa para potenciar la habilidad, talento artistico 

y el ingenio del propietario del SPECTRUM. No hay límite alguno para 

la variedad de curvas y espirales que puede dibujar el programa, salvo 

las impuestas por la imaginación del usuario. El programa proporciona 

al usuario las instrucciones necesarias para seleccionar y dibujar cada 

una de las 8 curvas ejemplo que se incluyen, para experimentar con 

una curva por sí mismo y, cuando esté satisfecho de lo realizado almacenando 
y grabando un cassette para una Ocasión posterior. 


ESTRUCTURA DEL PROGRAMA 


Cuando se ejecuta (RUN), el programa crea la cadena literal f$, en 

la cual las ecuaciones a dibujar se almacenarán de forma permanente. 

A continuación lee los 8 pares de ecuaciones (que se toman como ejemplo) 
de la cadena fS, los cuales se encuentran en las sentencias DATA de 

las líneas 200 a 270, enviándolas a los almacenamientos temporales 


xS e y$. 


El programa debe almacenar también la longitud (en caracteres) de 

cada ecuación, de forma que pueda tomarlas correctamente de la cadena 
1$. Un método mediante el cual podría realizarse esto sería crear una 
cadena numérica e introducir la longitud de cada ecuación dentro de 

los elementos de esa cadena. Este método tiene la desventaja de que 
podría haber dos limitaciones en el números de ecuaciones que es capaz 
de almacenar el programa: la primera limitación podría ser la longitud 

de f$ y la segunda podría ser el número de elementos en la cadena. 

Para evitar este problema el programa reserva dentro de fS el byte 
precedente a cada ecuación para la longitud de la ecuación en caracteres. 
De esta forma la longitud de f$ pasa a ser la única limitación en la 
capacidad del programa y ella puede ser aumentada mediante el incremento 
del valor de (tl) en la línea 110. La única desventaja es que la longitud 
de la ecuación es almacenada en un solo byte y por ello el número 
máximo de ecuaciones posibles es de 255. 


Teniendo almacenadas las ecuaciones del ejemplo en f$ el programa 
imprime el MENU ilustrado en la Figura FPl. El usuario puede elegir 
ver una de las curvas del ejemplo seleccionando la opción "DIBUJO 
DE UNA CURVA". El programa imprime las ecuaciones actualmente 
almacenadas en f$ y el usuario elige una de ellas. El programa se 
transfiere a las ecuaciones x5 e y5, va a la subrutina de la línea 1600 
y dibuja la curva seleccionada, continúa haciendo esto hasta que 

el usuario presione alguna tecla, en cuyo caso vuelve al MENU de 
opciones. 
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ESPIRALES 


MENU 


ic una funcion 

una funcion 
ion 
Programa 


TMIDA 


Cc 
L 
ma 


DU 

=y 

o 

1D. 

E 


FIGURA FPI. El MENU de opciones de ESPIRALES 


El usuario puede introducir un nuevo par de ecuaciones seleccionando 

la opción "INTRODUCIR UNA ECUACION". El computador no comprueba 
la sintáxis de las ecuaciones y por tanto se debe tener cuidado y asegurarse 
de que no hay caracteres ilegales y que los paréntesis están dispuestos 
simetricamente, etc. si se comete algún error el programa se detendrá 

e imprimirá el código de error "c sin sentido en BASIC 1740:1". La 
situación puede ser subsanada haciendo GOTO 1000 para obtener el 

menú de opciones, seleccionando la opción "introducir una ecuación" 

una segunda vez (después de corregida). 


Las ecuaciones introducidas por el usuario son almacenadas temporalmente 
en x5 e y5, de tal forma que si se introduce un segundo par de ecuaciones 
el par primero se pierde. Para evitar esto y retener en la memoria 

el primer par de ecuaciones el usuario debe seleccionar la opción 
"ALMACENAR UNA FUNCION". Esto hace que el programa transfiera 

el contenido actual de x$ e yS a f$, de tal forma que la nueva curva 

sea permanentemente accesible mediante la opción "DIBUJAR UNA 
FUNCION". De esta manera el usuario puede almacenar una colección 

de curvas a base de introducir ecuaciones (opción "T"), cambiándolas 
hasta que esté satisfecho y almacenarlas después. 


Hemos de llamar la atención sobre el punto de que, si un programa 

se detiene ('"H') y se vuelve a ejecutar (RUN), se borran todas las 
variables y vuelven a generarse de nuevo. Asi, las ecuaciones que el 
usuario almacena no se encuentran siempre de la misma forma como 
están en las 8 ecuaciones del ejemplo, puesto que estas ecuaciones 

se vuelven a cargar a partir de las sentencias DATA cuando el programa 
se ejecuta (RUN). De aquí que se incluya como opción "grabar en cinta 
y verificar el programa", que graba el programa en cassette, incluidas 
todas sus variables. Cuando el programa grabado es vuelto a cargar 
comienza automáticamente en la línea 1000, se imprime el MENU 

de opciones con todas las variables y todas las ecuaciones de f$ todavía 
intactas. 


LAS CURVAS EJEMPLO 


Es sorprendentemente difícil predecir el tamaño de una curva a partir 
de sus ecuaciones PARAMETRICAS. El circulo es la ecuación fundamental 
para todas las curvas cerradas, elipses y espirales y las ecuaciones 
de un circulo de radio | son: 
x = Cos n 
y =sinn 
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Cuando la dibujamos utilizando el programa ESPIRALES, aparece un 
pequeño circulo en el cuadro de la pantalla con centro en x - 127 
e y = 70. De igual manera, un circulo de radio 60 tiene de ecuaciones: 


x= 60 * cos n 
y = 60 *sinn 


Los valores máximos y minimos de las funciones seno (SIN) y coseno 
(COS) son -1 y +1 y así, el circulo más grande con centro en x = 127 
e y = 70 que puede ser dibujado sin salirse de la pantalla es: 


x= 70*cosn 
y=70*sinn 


Si se necesita dibujar un circulo con un radio mayor que 87 debemos 

mover el centro del circulo en la dirección del eje y hasta y = 87 mediante 
una pequeña modificación de la línea 1730 del programa. El cíbeulo 

podía entonces invadir la parte de la pantalla utilizada para escribir 

el título y las ecuaciones. 


Una elipse es como un circulo que se ha alargado en una de las 2 direcciones. 
La elipse mayor que puede dibujarse en una pantalla con centro en 


x = 127, y = 70 tiene de ecuaciones: 
x= 127 * cos n 
y= 70*sinn 


Para girar una elipse un ángulo determinado es necesario "mezclar" 
las funciones seno y coseno en las ecuaciones paramétricas, como por 
ejemplo: 


x= 30 *cosn+15*sinn 
y=30*sinn+ 15 *cosn 


Los efectos interesantes se obtienen mediante la mezcla de dos circulos 
simultaneamente como aparecen en la segunda curva, ilustrada en 
la figura FP2 las ecuaciones son: 


x= 25 * cos (12 * n) + 50 * cos n 
= 15 * sin (12 * n) + 30 *sinn 


y 
ESPIRALES 
25005 (12%n) +50%C05 n 
15ÍSIN (12% 


n3)+30%+SIN n 


FIGURA FP2. Una gran elinse con 12 pequeñas elipses superpuestas 
(ver texto) 
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La forma básica de la figura es una elipse de 50 unidades de largo 

y 30 unidades de ancho tal y como se deduce del segundo término 

de cada una de las ecuaciones x e y. Superpuestas a esta figura se 
dibujan 12 pequeñas elipses de 25 unidades de longitud y 15 de alto, 

tal y como se deduce del primer término de las ecuaciones paramétricas. 
En las Figuras FP3 y FP4 aparecen otras curvas. 


Una guía para conocer el tamaño de una figura puede obtenerse usando 
los coeficientes multiplicadores de las funciones seno (SIN) y coseno 
(COS). Se ha de tener cuidado de que la suma de dichos coeficientes 
ser menor de 127 en la dirección x y de 70 en la dirección y pues 

de otra forma el dibujo rebasará los límites de la pantalla. 


Se pueden usar otras funciones en lugar de éstas o funciones que incorporen 
una combinación de las funciones seno y coseno, pero se ha de tener 
cuidado de lo salirse de la pantalla y de que las curvas sean CERRADAS 
(aquellas que una vez y otra recorren el mismo camino), es decir: deben 
tener un límite superior y otro inferior y deben arrojar los mismos 

valores de x e y para valores homólogos de n en distintos ciclos. 


La función seno (SIN) por ejemplo nunca sobrepasa el valor +1 y nunca 
es inferior a -1, siendo sin (n + 2 m) = sin n, etc. 


ESPIRALES 
7O*COS 1n/8) 005 n 
SO0%*SIN (Nn-8)%SIN n 


FIGURA FP3. Una figura de las funciones cos y sen simultáneamente 
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ESPIRALES 
15005 (10%n)+50xC05 N+5*C05 (n/ 
IS*SIN (10%) +45%5IN N+SHSIN In/ 


FIGURA FP4. Una gran elipse con elipses más pequeñas superpuestas 
y perturbada por un pequeño término (cos) y (sin) 


PROGRAMA PPl. ESPIRALES 


5 CLS : PRINT TAB 11;"ESPIRALES” 
108 GO SUB 40889 

100 BORDER 1: PAPER 1: INK 7 

1109 LET olf=0: LET 1f=0: LET tl=1009 

120 DIM f$(t1)>) 

200 DATA 8 

210 DATA "58x*COS n+58x*COS (n/4)>","38x*SIN n+30x*SIN (n/4)>", 
"25*C08S (12*n>)+58*C0S n*","15*SIN (12*n)+30*SIN n” 

220 DATA "58*COS n+S58x*SIN (n/6>","3BXSIN n+308x*COS (n/ó6>" 

230 DATA "28x*C0S n+28*C0S (n/2>+28x*C0S (n/9)","15x*SIN n+15x% 
SIN (n/2)+15*SIN (n/49>" 

249 DATA "78x*C0S (n/8)x*C0S n*,"S58Ox*SIN (n/8)>*SIN n” 

250 DATA "S58x*COS (n/B8)*COS n+58x*COS (n/4)","35*SIN (n/B8>x 
SIN n+35*SIN (n/4>" 

260 DATA "48x*SIN n+28*SIN (4x*n>+10x*SIN (16*n>+5*SIN (32*n)", 
"*32*C0S n+8x*CO0S (4*n>)+4x*C0S (16*n>)+2*C0S (32*n)" 

278 DATA "15*C0S (18x*n)+89*C0S n+5*CO0S (n/4)","15*SIN (10x%xn>+45%x 
SIN n+5*SIN (n/4)" 

309 READ nf 

318 FOR ¡=1 TO nf 

320 READ x$,y$ 

3308 IF LEN x$>255 OR LEN y$>255 THEN BEEP ,2,24: 
PRINT "La funcion en la instruccion DATA tiene mas de 
255 caracteres": STOP 

340 LET 1f=1f+LEN x$+LEN y$+2 

350 IF. 1f>=18008 THEN BEEP .2,24: 
PRINT ,,"No hay espacio suficiente para la funcion - 
incrementa tl en la linea 110": STOP 

360 LET f$(o1f+1 TO 1f>=CHR$ LEN x$+x$+CHR$ LEN y$+y$ 

370 LET olf=1f 

380 NEXT ¡ 

399 LET x$="": LET y$="" 

1000 LET t=28: CLS : PRINT TAB 11;"ESPIRALES" 

1019 PRINT ,,,,TAB 14;"MENU" 
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1020 


19309 
1940 


12008 
1210 
15089 
1510 


1528 


1538 
1550 


1560 


1570 
1580 
1599 
16080 
1610 
1709 
1718 
1730 
1740 
1759 
1768 
1770 
1780 
1799 
1808 
1858 
2008 
2018 
2028 
2030 
2040 
20509 
20608 
20709 
2080 
2099 
2108 
2118 
2120 
2130 
2140 
2158 
2160 
2178 
2180 
2198 
2200 
2218 
2408 
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PRINT ,,"Introducir una funcion";¡TAB t;"T", 

"Dibujar una funcion"¡TAB t;"D","Almacenar una funcion”; 
TAB t;"M","Grabar y verif. el programa"¡TAB t;"S", 

"Detener el programa";¡TAB t;"H" 

INPUT z$: LET z$=CHR$ (CODE z$-32x*(z$>"%")) 

GO TO 12080+300x*(z$="T")+800x*x(z$="D")+1300x*(2$="M">+1800% 
(z$="S")+2300x*(z$="H"> 

INPUT "Pulsa una tecla para continuar";z$ 

GO TO 1008 

PRINT ,,TAB ?9;"Introduce una funcion" 

INPUT "Introduce la ecuacion en funcion de n para el eje OX"; 
x$ 

IF LEN x$>255 THEN BEEP .2,24: 


PRINT ,,"La ecucion debe tener menos de 255 caracteres. 
Introduce otra.": GO TO 1510 

PRINT ,,,,"La ecuacion es :",,x$ 

INPUT "Introduce la ecuacion en funcion de n para el eje OY"; 
y+ 

IF LEN y$>255 THEN BEEP .2,24: 


PRINT ,,"La ecuacion debe tener menos de 255 caracteres. 
Introduce otra.": GO TO 1558 

PRINT ,,,,"La ecuacion es :",,y$ 

GO SUB 1408 

GO TO 120808 

INPUT "Quieres una copia en la impresora? (S/N>";z$8 
LET z$=CHR$ (CODE z$-32*(z$>"£")>) 

CLS : PRINT TAB 11;"ESPIRALES” 

PRINT ,,x$: PRINT y$ 

LET n=8: LET cx=127: LET cy=70 

LET sx=cx+VAL x$: LET sy=cy+VAL y$ 

LET rxeVAL x$: LET ry=VAL y$ 

PLOT cx+rx,cy+ry 

LET n=n+.,025 

IF INKEY$<>"" THEN GO TO 1888 


GO TO 1758 

IF z$="S" THEN COPY 

RETURN 

PRINT "Dibujar una funcion" 


,, 
PRINT ,,"Las funciones validas son :*" 
LET f=0: LET n=1 
GO SUB 24088 
IF s>=1f THEN GO TO 2108 
PRINT ,,n;¡TAB 6$;f$<s TO f)>¡TAB 6; 
GO SUB 2488 
PRINT £$(s TO £> 
LET n=n+1 
GO TO 2038 
INPUT "Introduce no. de funcion ";m 
IF m>»n OR n<8 THEN BEEP .2,24: GO TO 21088 
LET f=0: LET n=1 
GO SUB 2488 
IF n=m THEN LET x$=f$(5s TO f> 
GO SUB 24688 
IF n<d»m THEN LET n=n+1: GO TO 2130 
LET ys=f$(s TO f£) 
GO SUB 14688 
LET x$="" 
LET y$="" 
GO TO 12088 
LET s=f+2 
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2418 
2420 
25009 
2518 


2520 
2530 


2540 
2550 
2560 
2570 
3098 
3010 
3020 
3030 
3048 


3059 
3069 
30709 
3080 
3509 
3510 
4009 


4010 


4058 
4060 
4070 


LET f=s+CODE f$(s-1>-1 

RETURN 

PRINT ,,;TAB 8;"Almacenar una funcion" 

IF LEN x$=0 OR LEN y$=08 THEN BEEP .2,24: 

PRINT ,,"La funcion no esta definida": GO TO 1200 

LET 1f=1f+LEN x$+LEN y$+2 

IF 1£>=1000 THEN BEEP .2,24: 

PRINT ,"No hay suficiente espacio para almacenar la funcion”: 
LET 1f=1f-LEN x$-LEN y$-2: GO TO 1208 

LET f$(o1f+1 TO 1f>=CHR$ LEN x$+x$+CHR$ LEN y$+y$ 

LET olf=14 

PRINT ,,"Funcion almacenada" 

GO TO 1208 

PRINT ,,TAB 8;"Grabar ESPIRALES” 

SAVE "ESPIRALES" LINE 18009 

INPUT "Deseas verificar lo grabado? (S/N)";z% 

IF z$<>"S" AND z$<>"s" THEN GO TO 12808 

PRINT ,,"Rebobina la cinta",,,, 

A Inserta la clavija ""EAR""",,, 

"Pulsa PLAY en el cassette" 

LET z$="S" 

VERIFY "ESPIRALES" 

PRINT ,,"Copia verificada” 

GO TO 1208 

PRINT ,,"Programa terminado" 

STOP 

PRINT III 99) 

* Este programa permite representar en pantalla funciones, 
que se introduciran independientemente para las coordenadas 


XeY. Ambas deberan expresarse en funcion de n 
(parametricas)." 
PRINT " Tambien podras 


dibujar una de las 8 graficas ya definidas, grabar el 
programa o sacar una co- pia en la impresora.",, 


PRINT ,,, FLASH 1;"PULSA UNA TECLA PARA COMENZAR" 
IF INKEY$="" THEN GO TO 4068 
RETURN 
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13. LA CAZA DEL PATO 


La compleja estructura de la salida del fichero de pantalla en el SPECTRUM, 
tal y como se describe en el capitulo 24 del Manual de Programación 

Basic para el ZX SPECTRUM, hace más bien difícil manipular el display 

a una velocidad satisfactoria utilizando un programa en Basic. 


Este programa desarrolla una técnica para modificar la salida por pantalla 
a una razonable velocidad por medio de cambios en las caracteristicas 

del fichero. Una segunda versión del programa utiliza una corta subrutina 
en código máquina para acelerar el movimiento. 


El programa simula un puesto para la caza del pato similar a la realidad. 
Cuatro líneas de patos desfilan por la pantalla de arriba a abajo y 
de izquierda a derecha (y viceversa) hasta que desaparecen. 


El jugador tiene una sola escopeta situada en la parte inferior de la 
pantalla, pudiendo moverla mediante las teclas 5 y 8 y dispararla mediante 
la tecla número 7. Su objetivo es acertar a todos los patos de la pantalla 
utilizando el menor número posible de disparos y movimientos de la 
escopeta, todo ello en el menor tiempo posible. 


El programa PUL está todo él escrito en BASIC. La primera línea llama 
a la subrutina 7000, la cual establece 4 caracteres gráficos definidos 
por el usuario y que representan la bala (B), la escopeta (G) y un pato 
moviéndose a la derecha (D) y a la izquierda (E). El jugador elige a 
continuación los colores de la pantalla (PAPER) y de los caracteres 

que en ella se describen (INK), p e i respectivamente y el programa 
produce un "AREA DE JUEGO" tal y como se ilustra en la figura FUI. 


b + b S b b 
3 2 2 2 2 3 2 


b t b b 1 bh b 
nl el al 2 al Al 
FIGURA FUI. La salida por pantalla de "LA CAZA DEL PATO" 


Hemos de hacer notar que los comandos que dibujan (PRINT) los patos 
(líneas 200 a 290) no son muy normales: cada una de las 8 lineas dibujadas 
está compuesta por una secuencia repetida de l pato en el color ¡ 
(definido mediante INK) y de 3 patos en el mismo color p que se ha 
definido para la pantalla. Estos 3 últimos patos se vuelven así INVISIBLES 
y en la salida por pantalla sólo se nota una cuarta parte de los patos 

que se encuentran realmente allí. 


El juego en sí se controla mediante el bucle situado entre las líneas 
2000 y 2110. Este bucle llama a la subrutina de la línea 2200, la cual 
tiene como misión tomar de forma rotativa cada uno de los 32 bytes 
de una fila de pantalla para que los patos vayan a la derecha o a la 
izquierda. El valor de la rotación (d) influye en el color ¡ (que define 
INK) y el efecto que produce es crear la impresión de movimiento 
de los patos al colorear rotativa e independientemente con p uno de 
cada 4 patos en pantalla y cada una de las 4 líneas. 
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La subrutina de la linea 2200 llama asimismo a otras subrutinas. 


La función de la primera, en la línea 3000, es borrar la bala de la 
pantalla previamente al movimiento de los patos. La segunda subrutina, 
en la línea 3100, restituye la bala después de que se han movido los 
patos y la hace moverse hacia arriba. Si un determinado pato ocupa 

la posición del carácter en el cual se encuentra la bala tanto el pato 
como la bala se borran mediante el campo del color del pato de ¡ a 

p. La subrutina de la línea 4000 hace disparar la escopeta (*). 


La segunda versión del programa (PUZ2) utiliza una subrutina en código 
máquina para realizar la rotación que produce la impresión de movimiento. 
Esta subrutina se almacena desde el comando DATA de la línea 20 

en una parte de memoria situada entre el RAMTOP y el área reservada 
para los gráficos definidos por el usuario, lo cual se realiza mediante 

el bucle de las líneas 30 a 60. La rutina en código máquina se lista 

en la tabla TUI 


HEXADECIMAL MNEMONICOS (ENSAMBLADOR) 
06 02 LD B, 2 

21 00 58 LD HL, 22528 
7E NEXT LD A, (HL) 
C5 PUSH BC 

54 LD D, H 

5D LD E, L 

23 INC HL 

01 1F 00 LD BC, 31 
ED BO LD IR 

2B DEC HL 

77 LD (HL), A 
01 40 00 LD BC, 64 
09 ADD AL, BC 
7E LD A, (HL) 
54 LD D, H 

5D LD E, L 

2B DEC HL 

01 1F 00 LD BC, 31 
ED B8 LD DR 

23 INC HL 

77 LD (HL), A 
01 40 00 LD BC, 64 
09 ADD HL, BC 
C1 POP BC 

10 DE DJNZ, —34 NEXT 
C9 RET 


TABLA TUI. Esta subrutina cambia las líneas 0, 2, 4, 6 del archivo 
de caracteristicas 
(*) NOTA DEL TRADUCTOR 
La puntuación en cada momento se obtiene mediante la línea 2280. 
Si no se es muy rápido con los cursores la puntuación puede ser negativa, lo 
cual puede evitarse cambiando el 50 de la línea 2270 (tiempo transcurrido) 
por un número menor. 
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PROGRAMA PUI. Versión BASIC de la "CAZA DEL PATO" 


18 GO SUB 7808 
10609 PRINT "Color de fondo 7": INPUT p: 
IF p<8 OR 8>7 THEN BEEP 1,12: GO TO 1088 
110 PRINT "Color de los patos 2": INPUT ¡: 
IF ¡<8 OR ¡>7? OR ¡=p THEN  BEEP 1,12: GO TO 110 
120 BORDER p: PAPER p: INK ¡: CLS 
130 LET real=8xp+i 
140 LET 1=20: LET cg=14: LET h=8: LET cy=8 
159 PRINT AT 1,cg;*"6" 
160 PRINT AT 8,0; 
209 FOR j=1 TO 2 
210 FOR k=1 TO 8 
2208 PRINT  INK i 
230 NEXT k 
240 PRINT — INK p,, 
250 FOR k=1 TO 8 
260 PRINT — INK p3"D";z INK ¡z"D"; INK p;j"DD"; 
270 NEXT k 
289 PRINT  INK p,, 
290 NEXT j 
300 PRINT INK isssro39999199 
2008 LET s=22528 
2019 FOR j=1 TO 2 
2028 LET d=1 
2030 GO SUB 2208 
2048 IF h>=32 THEN PRINT AT 5,9; FLASH 1;"Fin del juego": 
FOR z=1 TO 508: NEXT z: RUN 
2050 LET s=s5+95 
2068 LET d=-1 
2078 GO SUB 2280 
2088 IF h>=32 THEN PRINT AT 5,9; FLASH 1;"Fin del juego": 
FOR z=0 TO 508: NEXT z: RUN 
2090 LET s=5+33 
2100 NEXT j 
2118 GO TO 2608 
2208 LET a=PEEK s 
2218 FOR ¡=8 TO 38x*d STEP d 
2215 GO SUB 3008 
2220 POKE s+i,PEEK (s+i+d) 
22308 GO SUB 3108 
2248 GO SUB 46808 
22508 NEXT ¡ 
2260 POKE s+dx*31,a 
2270 LET cy=cy+50 
2280 PRINT AT 21,0;"Aciertos = ";h,"Puntos = "¡hx*x10808-cy, 
2290 RETURN 
30008 IF 1=28 THEN RETURN 
30189 PRINT  INK pz PAPER pj¡AT 1,c;" " 
3020 IF 1=0 OR 1=4 THEN PRINT AT 1,c; INK p;j PAPER p;"E" 
3030 IF 1=2 OR l=ó6 THEN PRINT AT 1,c; INK p; PAPER p;"D" 
30408 LET 1=1-2: RETURN 
3198 IF 1<0 THEN LET 1=28: RETURN 
3110 IF 1=28 THEN RETURN 
31280 IF 1>7 THEN PRINT AT 1,c;"B": RETURN 
3130 IF ATTR (1,c>=real THEN PRINT AT 1,c; INK p; PAPER p;¿" ": 
LET h=h+1: LET 1=20: RETURN 
3140 PRINT AT 1,c;"B": RETURN 
3158 RETURN 
4008 LET k=PEEK 23568: POKE 23560,8 


"E"3 INK p;"EEE”; 


ICI) 
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4018 GO TO 4100+100*(k=55)+200x*(k=53)+300x*(k=56) 


41098 RETURN 
4200 IF 1<>20 THEN RETURN 
4210 LET l=1-2: LET c=cg: LET cy=cy+30 


4228 PRINT AT 1,c;"B" 
4238 RETURN 

4300 IF cg<>»B8 THEN LET cg=cg-1 
4319 PRINT AT 28,cg+1;" " 
4328 PRINT AT 208,cg;"G" 
43308 LET cy=cy+5 

4340 RETURN 

4400 IF cg<>31 THEN LET cog=cg+1 
4410 PRINT AT 20,cg-1;" " 
4420 PRINT AT 208,cg;"6" 
4430 LET cy=cy+5 

4448 RETURN 

7000 POKE USR "B",0 
7001 POKE USR "B"+1,0 
7002 POKE USR "B"+2,16 
7003 POKE USR *"B"+3,16 
7004 POKE USR "B"+4,16 
7005 POKE USR "B"+5,16 
7006 POKE USR "B"+4,08 
7007 POKE USR "B"+7,0 
7008 POKE USR "G",0 
7089 POKE USR "G"+1,24 
7010 POKE USR "G"+2,24 
7011 POKE USR "G*+3,24 
7812 POKE USR "G"+4,24 
7013 POKE USR "G"+5,24 
7014 POKE USR "G"+6,24 
7015 POKE USR "G"+7,8 
70164 POKE USR "D",08 
7017 POKE USR "D"+1,12 
7018 POKE USR "D"+2,14 
7019 POKE USR "D"+3,4 
7020 POKE USR "D"+4,68 
7021 POKE USR "D"+5,124 
7022 POKE USR "D"+4,68 
7023 POKE USR "D"+4,8 
7024 POKE USR "E",0 
7025 POKE USR "E"+1,48 
7026 POKE USR "E"+2,112 
7027 POKE USR "E"+3,32 
7028 POKE USR "E"+4,60 
7029? POKE USR "E"+5,62 
7030 POKE USR "E"+6,68 
7031 POKE USR "E"+7,0 
7032 RETURN 
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PROGRAMA PU2. Esta versión de la "CAZA DEL PATO" utiliza 

la rutina en CODIGO MAQUINA para manejar el FICHERO de atributos 

10 CLEAR 32559 

20 DATA 6,2,33,0,88,126,197,84,93,35,1,31,8,237,176,43,119, 
1,64,0,9,128,84,93,43,1,31,8,237,184,35,119,1,64,8,9,193, 


16,222,201 

38 FOR ¡=8 TO 39 

40 READ j 

50 POKE 32568+¡,, 

60 NEXT i 

78 GO SUB 7000 

80 LET r=0 

90 PRINT "LA CAZA DEL PATO" 
95 PRINT 


1009 PRINT "Introduce color de fondo (8-7)": INPUT p: 
IF p<8 OR p>7 THEN BEEP 1,12: GO TO 188 


105 PRINT 

110 PRINT "Introduce color de patos (B8-7?>":; INPUT ¡: 
IF ¡<8 OR ¡>7 OR ¡=p THEN BEEP 1,12: GO TO 110 

120 BORDER p: PAPER p: INK ¡: CLS 


138 LET real=8x*p+i 
140 LET 1=20: LET cog=18: LET h=0: LET cy=0 
159 PRINT AT 1,cg;")" 
1609 PRINT AT 0, a 
200 FOR j=1 TO 
210 FOR k=1 TO E 
220 PRINT — INK ¡i;"%"; INK p;"644"; 
230 NEXT k 
240 PRINT — INK p,, 
250 FOR k=1 TO 8 
260 PRINT — INK pj"3"3 INK ¡;"2"3 INK p;"22 
270 NEXT k 
280 PRINT  INK p,, 
2970 NEXT j 
300 PRINT — INK ¡,,,, 
2008 LET S=22528. 
2018 FOR j=1 TO 2 
2428 LET d=1 
20430 G0 SUB 22008 
20490 IF h>=32 THEN CLS : PRINT AT 5,5; FLASH 1;"Se acabo tu vida. 
Pulsa la tecla 1": IF INKEY$="1" THEN RUN 
2050 LET s=8+95 
2068 LET d=-1 
20708 GO SUB 22408 
2088 IF h>=32 THEN CLS : PRINT AT 5,5; FLASH 1;"Se acabo tu vida. 
Pulsa la tecla 1": IF INKEY$="1" THEN RUN 
20908 LET s=85+33 
21088 NEXT y 
21108 GO TO 2009 
2200 LET a=PEEK s 
2210 FOR ¡=8 TO 38x*d STEP d 
2215 GO SUB 3000 
2228 POKE s+i,PEEK (s+i+d) 
2230 GO SUB 3108 
2248 GO SUB 4000 
2258 NEXT i 
2260 POKE s+d+31,a 
2270 LET cy=cy+50 
2280 PRINT AT 21,8;"Impactos = ";¡h,"Puntos = ";¡hx*100-cy, 
22908 RETURN 
3008 IF 1=20 THEN RETURN 
30108 PRINT— INK pj PAPER p¡AT 1,c;" " 
3020 IF 1=8 OR 1=4 THEN PRINT AT 1,c; INK pj PAPER p;"%" 
* 3038 IF 1=2 OR l=4 THEN PRINT AT 1,c; INK p; PAPER p;"2" 


PIRENDIPOAODOASD090999 
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3040 
3109 
3110 
3120 
3130 


3135 


3140 
3150 
4080 
4010 
4108 
4208 
4219 
4220 
4230 
4308 
4310 
4320 
4338 
4340 
4400 
4410 
4420 
4430 
4440 
7089 
7001 

7982 
7003 
7804 
7005 
7086 
7097 
7098 
7089 
7810 
7011 

7012 
7813 
7814 
7815 
7016 
7017 
7018 
7019 
7020 
7021 

7022 
7023 
7824 
7025 
7026 
7027 
7028 
7029 
7038 
7031 

7032 


CAZA DEL PATO 


LET 1=1-2: RETURN 

IF 1<8 THEN LET 1=208: RETURN 

IF 1=208 THEN RETURN 

IF 1>7 THEN.” PRINT AT 1,c;"1+": RETURN 

IF (1=8 OR 1=4) AND ATTR (1,c>=real THEN PRINT AT 1,c; 
INK pj; PAPER p;" ": LET h=h+1: LET 1=20: RETURN 

IF (1=2 OR 1=8) AND ATTR (1,c)=real THEN PRINT AT 1,c; 
INK pj PAPER p;" ": LET h=h+*1: LET 1=20: RETURN 

PRINT AT 1,c;3"s+": RETURN 

RETURN 

LET k=PEEK 23568: POKE 23560,0 

GO TO 4108+100x*(k=55>)+20B8x(k=53)+300x*(k=56) 


RETURN 

IF 1<>20 THEN RETURN 

LET l=1-2: LET c=cg: LET cy=cy+30 
PRINT AT 1,c;”1" 

RETURN 


IF cg<>»0 THEN LET cg=cg-1 
PRINT AT 28,cg+1;" " 
PRINT AT 20,cg;"1" 
LET cy=cy+5 

RETURN 

IF cg<>31 THEN LET co=cg+*1 
PRINT AT 2B8,cg-1;" " 
PRINT AT 28,cg;"0" 
LET cy=cy+5 

RETURN 

POKE USR "B",8 
POKE USR "B"+1,0 
POKE USR "B"+2,16 
POKE USR "B"+3,16 
POKE USR "B"+4,16 
POKE USR "B"+5,16 
POKE USR "B"+6,0 
POKE USR "B"+7,0 
POKE USR "G",B8 
POKE USR "G"+1,24 
POKE USR "G"+2,24 
POKE USR "G"+3,24 
POKE USR "G"+4,24 
POKE USR "G"+5,24 
POKE USR "G"+6,24 
POKE USR "G"+7,8 
POKE USR "D",8 
POKE USR "D"+1,12 
POKE USR "D"+2,14 
POKE USR "D"+3,4 
POKE USR "D"+4,48 
POKE USR "D"+5,124 
POKE USR "D"+6,4608 
POKE USR "D"+6,8 
POKE USR "E",0 
POKE USR "E"+1,48 
POKE USR "E"+2,112 
POKE USR "E"+3,32 
POKE USR "E"+4,68 
POKE USR "E"+5,62 
POKE USR "E"+4,68 
POKE USR "E"+7,0 
RETURN 


Nota: Puedes tambien sustituir la instruccion 
2225 por esta otra sentencia: 
LET r=r+1-8x*(r=7):1F r=0 THEN RANDOMIZE USR 32588 
:¿LET cy=cy+10 

y anadir una linea 88 LET r=08 
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19. DIBUJO (DIGITISER) 


Este programa puede ser utilizado para reproducir en la pantalla el 
DIBUJO de un mapa, diagrama, poster o pintura. Tiene la particularidad 
de: reproducir a escala los valores introducidos por el usuario, trazar 
una linea en pantalla y colorear el área comprendida entre dos partes 

de dicha línea. Este DIBUJO puede ser modificado por el usuario PIXEL 
A PIXEL, y las caracteristicas de la situación de cada PRINT AT pueden 
ser modificadas directamente desde el programa. Asimismo, el DIBUJO 
puede ser grabado (SAVE) en cinta. Todas las instrucciones se trasladan 
al programa mientras se mantiene el DIBUJO en la pantalla. 


La FIGURA FG] muestra un mapa de la PENINSULA IBERICA tal 
y como se obtiene mediante este programa. Las coordenadas de la 
línea de la costa han sido tomadas del MAPA RESUMEN de la RED 
NACIONAL DE CARRETERAS (MOPU, ESPAÑA). 


PS dee e 20 e 


: 3 
Ñ Bilbac 
A 
y 
Oparta ¡“CDortetara 
E 
MadriJxJ E 
¿ A 
lisboa kttatencia 
, EE 


MK 

: i 
j o E, 
A 


FIGURA FGI. Un mapa realizado utilizando el programa "DIBUJO" 
(DIGITISER) 


COMO UTILIZAR EL PROGRAMA 


Cuando se ejecuta (RUN), el programa pregunta por las coordenadas 
x e y que se van a asignar al punto inferior izquierdo, y por la coordenada 
x que se va a asignar al punto situado más a la derecha del diagrama. 


A partir de estos datos, el programa calcula un factor de escala para 

el dibujo y la coordenada y máxima, preguntando al usuario si está 
conforme con ellas. Si esto es asi, entonces el factor de escala obtenido 
se aplica a todos los valores de coordenadas a introducir a continuación, 
realizándose cualquier valor de x o de y que esté fuera de los límites 
definidos previamente (fuera de RANGO). 
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El programa reproduce a escala los puntos y los sitúa en el diagrama, 
cubriendo en la dirección x los pixels del 1 al 254 y del 9 al 174 en 

la dirección y. Para evitar los errores de redondeo en los cálculos 

de PLOT y DRAW y su repercusión en la pantalla, el programa avanza 
pixel a pixel hacia la izquierda, la derecha y parte superior del diagrama. 


Además se deja una línea en la parte inferior de la pantalla para que 
pueda comunicarse el usuario con el programa. 


El programa le indica al usuario que debe seleccionar un número tal 

que rebase los limites permitidos para x. Este número debe ser utilizado 
en adelante por el usuario como un "NUMERO DE RETORNO" que 

hace que el programa vuelva al MENU PRINCIPAL. El programa también 
sugiere al usuario que debe elegir los valores iniciales de los colores 

de BORDER (parte exterior de la pantalla), PAPER (parte interior 

de la pantalla) e INK (caracteres escritos sobre PAPER). 


A diferencia de la mayoría de los programas de este libro, el presente 
programa no tiene salida por pantalla del MENU PRINCIPAL debido 

a que podría sobreimpresionarse sobre el contenido de la pantalla, 

que es el objetivo del programa. Toda comunicación entre el programa 

y el usuario se produce por medio de la línea de INPUT (la linea inferior 
de la pantalla). De esta manera, los mensajes del programa son algo 
ininteligibles. 


La Tabla TG] relaciona las INSTRUCCIONES que puede introducir 

el usuario (siempre mediante COMANDOS de una sola letra). Una vez 
pulsado un comando el programa salta a la subrutina precisa mediante 
la línea 1030. 


INSTRUCCION COMANDO COMENTARIO 


DIBUJO (DRAW)  D Utilizado para introducir pares 
de coordenadas x e y para crear 
el DIBUJO de una línea. 

COLOR e Coloración inicial para toda o parte 
del área de pantalla dentro (o fuera) 
de la imagen de línea. 

INK Y PAPER I Nuevos valores de INK y PAPER 
para ser utilizados en adelante. 

CARACTERIS- A Colores de INK y PAPER de las 

TICAS sentencias PRINT AT dadas previamente. 

PALABRAS W Situar un mensaje en una posición dada. 

RETOQUES T PLOT OVER 1 en una posición dada. 

GRABAR (SAVE)  S Grabar un cassette el contenido 
actual de la pantalla. 


CARGAR (LOAD) L Cargar la "pantalla'" deseada de cinta. 
IMPRIMIT (PRINT) P Copiar el contenido de la pantalla 

en la impresora (PRINTER). 
PARAR H Parar el programa. 


TABLA TGI. Las instrucciones que pueden ser introducidas por el usuario 
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DIBUJO (DRAW) Introducir D 


Esta es una subrutina con la cual se producen las imágenes de líneas 

que definen el diagrama. El programa comprueba que las parejas de 
coordenadas introducidas por el usuario tienen valores permitidos, calcula 

la escala adecuada y dibuja la linea correspondiente calculada en la 
pantalla. Los pares de coordenadas pueden también obtenerse mediante 

la impresora si está conectada. El usuario puede continuar introduciendo 
parejas de coordenadas hasta el momento en el que introduzca el "NUMERO 
DE RETORNO" para volver al MENU principal. 


El comando DRAW OVER 1 sólo se utiliza si se comete algún error. 
Repitiendo la instrucción se borra la linea. 


COLOR Introducir C 


Esta opción se utiliza para colorear pixels (PLOT) con el valor actual 
del color de INK en toda o parte de la pantalla situada en la parte 
interior de la imagen de línea. El usuario especifica una "CAJA" que 
desea colorear y, después de comprobar que la "caja" no está situada 
fuera del área de pantalla el programa colorea (PLOT) dicha "caja" 
en la pantalla. El procedimiento de coloración comienza en la esquina 
inferior izquierda de la "caja" y continúa a lo largo de las sucesivas 
columnas de pixels. 


El programa pregunta si debe conectarse o no este comando desde 

el principio y, cada vez, la posición actual de PLOT modifica la imagen 
preexistente. 

la atención del usuario está polarizada por la posición actual de PLOT 
mediante la utilización del comando FLASH 1. 


INK y PAPER Introducir 1 


Esta opción cambia los valores actuales de INK y PAPER. 


CARACTERISTICAS, PALABRAS Y RETOQUES Introducir A, W, T 


Estas "CARACTERISTICAS" especificas se refieren a los valores de 
INK y PAPER, y "PALABRAS" sitúa un mensaje (con valores INK y 
PAPER especificados previamente) en una posición PRINT AT dada. 


"RETOQUES" dibuja (PLOT) un punto en un par dado de coordenadas. 
En cada caso se puede utilizar el comando OVER 1, de tal forma que, 


si se repite la instrucción se borra el resultado. El "NUMERO DE RETORNO" 
se utiliza para volver al MENU principal. 
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19. DIBUJO 


120 


130 
140 
1509 
160 
170 
188 


199 
200 
210 
220 
230 
240 


250 
310 
320 
330 
340 
350 
360 
380 
390 
409 
990 
1018 
1028 
1039 


11009 
1508 
1518 


15208 
1530 


1540 
1558 
1568 
1578 
1580 
1590 
1500 
16108 
1628 
1658 
1568 


1708 
1718 
1720 
1730 
1748 
1759 
1755 
1760 
1778 
1788 


PROGRAMA PGI. DIBUJO (DIGITISER) 


PRINT TAB 11;"Digitiser”",,, 

"Introduce las coordenadas de la esquina inferior izquierda" 
PRINT ,,"Esquina inferior izquierda = "; 
INPUT x1 

PRINT x13%,"; 

INPUT yl 

PRINT y1 

PRINT ,,"Introduce la coordenada X de 
derecha" 

INPUT xu: IF xu<=xl1 THEN BEEP .,2,24: GO TO 1940 

LET yu=(xu-=x1)x*165/253-y1 

PRINT ,,"Esquina superior derecha = EE APIO 

PRINT ,,"Esta todo bien (S o N) ?2 " 

INPUT z$: IF z$="N" OR z$="n" THEN RUN 

PRINT ,,"Elige un numero que no este entre A O O AU 
".": PRINT "Este numero se usara para volveral MENU .” 
INPUT rx: IF rx>»=x1 AND rx<=xu THEN  BEEP .2,24: GO TO 258 
PRINT "Border = "; 

INPUT b: IF b<8 OR b>7 THEN BEEP .,2,24: GO TO 328 

PRINT b 

PRINT "Paper = "; 

INPUT p: IF p<8 OR p>7 THEN BEEP .2,24: GO TO 358 

PRINT p¡TAB 0;" Ink ="; 

INPUT ¡: IF ¡<8 OR ¡>7 THEN BEEP .2,24: GO TO 380 

PRINT i 

BORDER b: PAPER p: INK i 

CLS 

INPUT "MENU - elige opcion ";z$ 

LET y$=CHR$ (CODE z$-32*(2$>"2£">) 

GO TO 11088+4400x*(y$="A")+4988x*(y$="1)")+3900x*(y%="T")+3480% 
(y$="L")+400x*(y$="C")+908x*(y$="]")+1400x*(y$="D")+1990% 
(y$="S")+24900x*(y$="H")+2900x*(y$="P") 

GO TO 100808 

INPUT "Color-esquina inferior izda "¡xlb;",";ylb 

IF x1b<x1 OR x1b>xu OR ylb<yl OR y1b>yu THEN BEEP .2,24: 
GO TO 1598 

INPUT "Color-esquina superior dcha "3xubj",";yub 

IF xub<x1b+2 OR xub>xu OR yub<y1b+2 OR yub>yu THEN 

BEEP ,2,24: GO TO 1528 

LET x1b=x1bx*253/(xu-x1)+1 

LET xub=xubx*253/(xu-x1)+1 

LET ylb=y1bx*165/(yu-y1)>+9 

LET yub=yubx165/(yu-y1)+9 


la esquima superior 


GO SUB 90808 

INPUT "Color del rectangulo correcto ? (S o N) 2? "¡28 
IF z$<>"N" AND z$<>"n" THEN GO TO 1430 

GO SUB 0888 

GO TO 1588 


INPUT "Color - si ono (s o n»?";z8 
IF z$<>"s" AND z$<>"S" AND z$<>"n" AND z$<>"N" THEN 
BEEP .2,24: GO TO 1458 

FOR j=x1b+1 TO xub-1 

LET y=(z$="s"): LET op=8 

FOR k=y1b+1 TO yub 

LET q=POINT (j,k> 

IF q=8 AND op=1 THEN GO SUB 18088 

IF y=1 THEN PLOT — INK ¡iz PAPER p;j,k 
LET op=q: 

NEXT k 

NEXT J 

GO SUB 98088 
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19. DIBUJO 


1798 GO TO 10088 

1885 PLOT INK ¡; FLASH 1; PAPER p; OVER 1;J,k 

1818 BEEP ,2,24 

18208 INPUT "Color - si o no (s o n)?";y$ 

1838 IF y$<>"s" AND y$<>"S" AND y$<>"n" AND y$<>"N" THEN 
BEEP .2,24: GO TO 1828 

1840 LET y=(y$="s">: LET op=8 


1858 PLOT INK ¡; FLASH 0; PAPER p; OVER 1;J,k 
18609 RETURN 
2088 INPUT "Introduce el nuevo color del fondo” ;p 


2018 IF p<8 OR p>7 THEN BEEP .2,24: GO TO 2088 

2028 INPUT "Introduce el nuevo color de tin-ta";i 

2038 IF ¡<0 OR ¡>7 THEN BEEP .2,24: GO TO 2820 

2048 GO TO 10088 

2500 LPRINT : LPRINT "X coordenadas Y" 

2510 INPUT "Draw -origen ?";ox;",";oy 

2520 IF ox=rx THEN GO TO 1109 

2530 IF ox<xl OR ox>»xu OR oy<yl OR oy>yu THEN 
BEEP .2,24: GO TO 25108 

2535 LPRINT ox,oy 

2540 LET ox=0x*253/(xu-x1)>+1 

2558 LET oy=0y*165/(yu-y1)+9 

2560 PLOT OVER 1; INK ¡¡ox,oy 

26088 INPUT "Draw - coordenadas ? "¡x;",";y 

2619 IF x=rx THEN GO TO 1108 

2628 IF x<x1 OR x>»xu OR y<yl OR y>yu THEN BEEP .2,24: GO TO 2488 

2625 LPRINT x,y 

2638 LET x=x*253/(xu-x1>+1 

2640 LET y=yx*165/(yu-y1)+9 

26508 LET px=x-0x 

2660 LET py=y-oy 

2670 DRAW OVER 1; INK ¡;px,p» 

2688 LET ox=x 

2698 LET oy=y 

2708 GO TO 2608 

3008 INPUT "Grabacion - nombre ?";z$ 

3010 IF LEN z$=08 OR LEN z$>108 THEN BEEP .2,24: GO TO 3088 

3020 SAVE z$SCREENS$ 

3038 GO TO 1088 

3508 STOP 

4808 COPY 

4018 GO TO 1008 

4508 INPUT "Carga - mombre ?";z$ 

4510 IF LEN z$>18 THEN BEEP .2,24: GO TO 450808 

4520 LOAD z$SCREENS$ 

4538 GO TO 10808 

5008 INPUT "Retocado - coordenadas ";¡x;",";y» 

5010 IF x=rx THEN GO TO 108809 

5020 LET x=x*253/(xu-x1)>+1 

5039 LET y=yx*165/(yu-y1>+9 


5048 PLOT OVER 1; INK ¡j PAPER p;x,» 
5858 GO TO 5889 
5588 INPUT "Attr - introduce coord. de AT ";¿rj",";c 


5519 IF r=rx THEN GO TO 18089 

5520 IF r>21 OR r<8 OR c>31 OR c<0 THEN BEEP .2,24: GO TO 5588 
5530 PRINT  INK ¡; PAPER p; OVER 1;AT r,c;" "; 

5548 GO TO 5588 

6088 INPUT "Palabras - coordenadas de AT "¡¿rj;" ";c 

60819 IF r=rx THEN GO TO 1008 

6028 IF r>21 OR r<8 OR c>31 OR c<8 THEN BEEP .2,24: GO TO 4088 
6038 INPUT "Palabras ?";z$ 

60408 PRINT — INK ¡; PAPER pj OVER 1;AT r,cjz$ 

6058 INPUT "Correcto ? (S or N) ? ";y$ 
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6068 


6079 
9009 
9018 
9028 
9830 
9048 
9058 


IF y$="N" OR y$="n" 
OVER 1;AT r,c;zz$ 
GO TO ¿688 

PLOT. INK ¡; PAPER 
DRAW  INK ¡; PAPER 
DRAW  INK ¡j PAPER 
DRAW  INK ¡; PAPER 
DRAW  INK ¡j PAPER 
RETURN 


THEN — PRINT — INK ¡; PAPER p; 


OVER 
OVER 
OVER 
OVER 
OVER 


1;xlb,1b 
1;xub-x1b,0 
1,/8,»ub-y!lb 
1;xlb-xub,08 
1;0,y1b-yub+1 
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20. CALEIDOSCOPIO 


Completo mi colección de los 20 mejores programas para el ZX SPECTRUM 
presentando "CALEIDOSCOPIO". Es un programa simple, pero que 
garantiza la "hipnosis" del confiado usuario. 


El programa trabaja cargando (POKE) una secuencia de números variable 
en el fichero de características y reflejando los valores obtenidos en 

8 cuadrantes. La secuencia se genera por la ecuación de la linea 70. 
Podrían utilizarse otras ecuaciones, pero la que he utilizado proporciona 
una combinación satisfactoria de estabilidad y variación. Las lineas 

80 a 150 cargan (POKE) el valor generado de K en los 8 cuadrantes, 
siendo cada uno de los cuadrantes una imagen aproximada en espejo 

de los cuadrantes vecinos. 


PROGRAMA PQI. CALEIDOSCOPIO 


16 LET d=8 

20 LET s=229?728 

34 LET 1=0 

46 FOR ¡i=1 TO 12 

56 FOR j=0 TO 1 

64 LET d=d+.403 

78 LET k=INT (127xSIN d) 
89 POKE s+j,k 

958 POKE s--1,k 

166 POKE s+32-21xi+32%*j,k 
118 POKE s-31xXxi-32*j,k 
1206 POKE s-33Xi¡+31+32*j,k 
130 POKE s-33*Xxi-1-32*J,k 
19498 POKE s-ó44x*i+31-,k 
159 POKE s-69*i+32+J,k 
1548 NEXT ¡ 

170 LET l1=1+1 

180 LET s=s+32 

128 NEXT i 
268 GO TO 20 
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FE DE ERRATAS 


DIARIO 
Página 24 


410 PRINT ,,TAB 0 PAPER 6;¡"Introduce el dia, mes 


CHR$ 8¡CHR$ 8¡CHR$ 8¡CHR$ 8; OVER 1;"-" 


488 LET n$(1)=CHR$ (CODE n$(i)-32x*(n$(1)>"£")> 


558 PRINT ,,¡"Ano *"¡CHR$ 8¡CHR$ 8¡CHR$ 8¡CHR$ 8; OVER 1; 


, 
Ñ " 
tos, 


CALENDARIO 
Páginas 28 y 29 


39 INPUT z8: LET z$=CHR$ (CODE z$-32*(2$>"£")): 
IF 2$<>"M" AND z$<>"A" THEN BEEP 1,17: GO TO 38 


509 INPUT c$: LET cs$=CHR$ (CODE c$-32x*(c$>"2£")): 
IF c$<>"S" AND có$<>"N" THEN BEEP 1,17: GO TO 58 


540 LET n$(¡>=CHR$ (CODE n$(i)>-32*tn$(1)>"£")) 


